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La pratique dc I'Apple II 

tome I 

par Nicole Breoud-Pouliquen 
Cet ouvrage presente fes speoficnes 
du Basic Applesoft a partir d'une 
description du materiel et du logic iel 
du systeme Apple. Les techniques 
dc programmation. de composition 
et d'animation de dessins et graphi- 
ques colores y sont cxpliquces a t'aide 
d'exemptes illustratils et d'cxcrcices 
resolus 

128 pages - 85,00 FF 

La pratique de I'Apple II 

(ome 2 

par Nicole Breaud-Pouliqucn 
Ce second volume de la pratique de 
I'Apple II est consacre au systeme 
dexploitation disquc, a la gestion 
des fichiers. a I'impression et aux 
impnmantes. a la carte horlogc 
Appleclock. Dc nombreux exemples 
de programmes illustrent les fonc- 
tions et les commandes dcentes. 
120 pages - 85,00 FF 

La pratique de I'Apple II 

tome 3 

par Nicole Breaud-Pouhquen 
et Daniel-jean David 
Ce volume est une initiation a la 
programmation en langage machine 
6502 done le jeu destructions est 
explique et utilise. L'assembleur 
symbolique et ses logiciels connexes 
y sont deems L'mteraction avee le 
Basic et avec le systeme y est etudiee. 
176 pages - 95,00 FF 

Clefs pour I'Apple II 

par Nicole Breaud-Pouliquen 
Un livre de reference, dans la collec- 
tion "Mementos", destine a se trou- 
ver en permanence a cote de I'ordi- 
nateur Apple IL Son but est I'acces 
rapide a ('information : syntaxc des 
commandes. codes caracteres, mes- 
sages d'erreurs. codes machine, 
adresses utiles. II comporte egale- 
ment un recueil de 25 "trues" utiles, 
les "Comment... 
144 pages - 105,00 FF 



L'Apple et ses fichiers 

par Jacques Boisgontier 
Pour apprendre progressivemcm la 
programmation des applications uti- 
lisant les fichiers, I'ouvrage com- 
mence par une presentation concise 
et illustrec des commandes du Sys- 
teme d'Exploitation Disque et des 
instructions du Basic Applesoft. Les 
instructions des fichiers sequentiels 
et a acces direct sont cnsuite decn- 
tes ainsi que leur utilisation. Des 
methodes pratiques, souvent mal 
connues, montrent comment utilisor 
au micux des fichiers a acces direct : 
acces mdexe. Iiste inverse. Une 
vmgtaine de programmes illustrent 
('utilisation de ces techniques, 
le livre : 176 pages - 95,00 FF 
La disquette d'accompagne- 
ment: 210,00 FF 
Pour Apple II. II plus, lie ■ Dos 3.3 - 
version 48 K ou plus. 

Multiplan pour Apple II plus 

et//e 

par Herve Thirioz 

Multiplan est un progioel qui per- 
met de gerer plusieurs tableaux 
simultanement ; cet ouvrage sera 
pour les possesseurs d'ordmateurs 
Apple II Plus ou//e un veritable guide 
d'utilisation de Multiplan grace a des 
exemples progresses et a de nom- 
breux cas d'application (gestion de 
portcfeuiltcs, dc coproprietc. feuille 
de paie, impots. tableaux de bord. 
etc.). 

Le livre : 216 pages - 1 05,00 FF 
La disquette d'accompagne- 
ment: 210,00 FF 

Pour Apple II plus. He - Dos 3.3 - 
version 64 K ou plus (Disqu r *'n 
maitresse Multiplan indispens t|. 

Visicalc sur Apple 

par Herve Thmez 

Apres une presentation progressive 
du modele Visicalc. I'ouvrage etudie 
de nombreux cas d'application 
feuille d'impot. gestion de copro- 
prietc, paye, facturation.... permet- 
tant d'iniroduire les differentes 
instructions et asmtes d'utilisation 
Le livre: 176 pages -95,00 FF 
La disquette d'accompagne- 
ment : 210,00 FF 
Pour Apple II, II plus, He - Dos 3.3 - 
version 48 K ou plus I Disquette 
maitresse Visicalc indispensable). 



Pascal UCSD sur Apple II 

par Jacques RouauH et Patrice Cirard 
L'ordinatcur Apple II, le langage 
Pascal et te systeme d'exploitation 
UCSD forment a eux seuls le plus 
petit ensemble de micro-informati- 
que professionnclte. Une premiere 
partie de cet ouvrage est consacrec 
a I'ctude de ces trois elements. Sont 
cnsuite abordes les programmes de 
mise en route. Enfin les types et ins- 
tructions Pascal UCSD sont etudies 
en detail, ce qui permettra au lecteur 
de sc rendre compie de la nchesse 
mats aussi de la facilne d'emploi du 
Pascal. 

232 pages- 120,00 FF 

Gestion de fichiers 
et de peripheriques 
pour Apple II Pascal 

par Herve Haut 

Ce livre propose un moyen rapide 
et facile pour gerer les fichiers et les 
penphenques sur Apple De la ges- 
tion de bibliothequc a I'utilisation 
des peripheriques, I'auteur propose 
un ensemble de programmes utili- 
taires. ecnts en Pascal. Un expose 
des techniques les plus elaborees 
permettra d'attemdre le niveau suf- 
fisant pour utiliscr les methodes de 
programmation mises en ceuvrc 
176 pages - 100,00 FF 

Les bases de donnees 
sur Apple II 

par Michel Keller 

L'ob|ct dc cet ouvrage est d aider le 
lecteur a faire un choix parmi les 
nombreux logiciels existants sur 
Apple. Quatre de ces logiciels sont 
sclectionnes ici : PFS et PFS/Report 
• DB Master - CX BASE 200 - DBASE 
II. Pour chacun on trouve une des- 
cription detaillee du logiciel lui-meme 
et e ses procedures de mise en route, 
de creation de fichicr, dc saisic des 
donnees. de maintenance et d'edi- 
lion. L'auteur termine cette etude 
par I'expose des avaniages et des 
inconvenients inhercnts a chaquc 
logiael 

144 pages- 90,00 FF 

Microbook : base de 
donnees pour Apple II 

par Ted Lewis 

Microbook est un systeme de ges- 
tion de donnees et un outil de 
developpement de programmes 
concu pour transformer I'Apple II en 




un outil de classement de fichiers. 
dc collcctc et de recherche d'infor- 
mations, et de traitcment de don- 
nees. C'cst un ensemble de pro- 
grammes ecnts en Pascal qui fait de 
I'ordinateur un veritable biblio- 
thecaire. 

Les emplois de Microbook sont 
multiples it peut etre utilise pour 
quastmem toutes les applications ou 
le stockage et la recherche de don- 
nees est importante. Les program- 
mes etant tres longs, il est recom- 
mande d'acheter egalement la dis- 
quette d'accompagnement. proposec 
en deux versions : I'une compilee. 
I autre code source. 
Le livre : 248 pages - 1 45,00 FF 

LES DISQUETTES 
D'ACCOMPAGNEMENT . 
Microbook : base de donnees 
pou' Apple II 
par led Lewis 
volume MICRO 

Apple II. II plus, //e et ffc avec systeme 
Pascal disquette simple face, compi- 
lee, done non modifiable. 
Prix : 210,00 FF 



Microbook : base de donnees 
pour Apple II 
par Ted Lewis 

volume SOURCE et volume UNIT : 
Apple II, II plus. He et //c, avec sys- 
teme Pascal, disquette 2 faces enre- 
gistrecs. 

Prix : 310,00 FF 

Le systeme Pascal ainsi que les consi- 
gnes d'utilisation des programmes 
contcnus dans le livre sont mdispen- 
sables. Cette disquette existe en 
deux versions ! I'une, double 
face, destinee aux passionnes 
de la programmation cn Pascal, 
qui pourront directement pro- 
grammer dans ce langage, et 
developper et etendre a leur 
gre les facultes du systeme. La 
seconde, compilee, simple face, 
destinee aux personnes qui ne 
connaissent pas la programma- 
tion en Pascal ou qui n'ont pas 
le temps de programmer elles- 
memes, et qui desirent utiliser 
directement les multiples pos- 
sibilites de Microbook. 
Tous les programmes proposes dans 
le livre sont presents dans chacune 
des disquettes. exceptcs les ordrcs 
pour imprimantc. 
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Editorial 



Lenvironnement Apple est en evolution constante nous nous sommes a peine habitues au He. au 
Macintosh et au Mac 512 Ko que Ion voit poindre a i'horizon le fameux Apple l/x et la "norme //c". 
En effet. comme vous pourrez le voir dans la rubrique Micro-Informations, I'intention d' Apple est d'eta- 
bhr le 7c comme norme de la famille 6502. avec un modele haut de gamme. le //x. 
Les possesseurs de l/c ont une occasion de se rejouir : des essais systematiques realises a Pom 's nous 
ont montre que tout ce qui a ete publie. depuis le numero 1. fonctionne sur le l/c. En ce qui concerne 
les programmes ecrits en Pascal UCSD. il est bon de verifer toutefois. avant toute utilisation, que votre 
version du systeme n'est pas trop ancienne pour "booter" correctement sur le l/c (reconnaissance des 
80 colonnesj. 

Malgre des retards generaux par rapport aux dates de sortie annoncees au Sicob. nous commencons a 
voir apparaitre de nombreux logiciels pour le Macintosh, avec un bon pourcentage de produits francais. 
dont certains n'ont rien a envier aux creations americaines. Par contre. I'arrivee des peripheriques de 
toutes sortes n 'est pas particulierement rapide. 

Si vous possedez uniquement un Macintosh, void quelques precisions concernant les abonnements a 
Pom s. Seul 1'abonnement sans disquette peut vous interesser. puisque les disquettes comprises dans les 
abonnements sont destinees aux Apples II et //. II existe par ailleurs des disquettes d'accompagnement 
Macintosh, vendues separement et identifies comme telles dans les bons de commande. 
La disquette Mac No 1 est desormais complete. Elle comprend tous les programmes originaux publies 
dans les numeros 14 - 15 - 16. plusieurs polices de caracteres (Cairo. Los Angeles. Mos Eisley. Manhat- 
tan. Hollywood). Copy Disk avec un seul drive et le programme "Localizer". 
La disquette No 2. qui s'ajoutera au catalogue Mac. commencera done a partir du Pom's 1 7. 

Vos contributions concernant le Macintosh sont. malheureusement. encore trop peu nombreuses. Nous 
les recevrons et testerons avec plaisir. 

A ce propos. et pour allecher les interesses. signalons que les capacites du nouveau Mac 512 Ko sont 
plus en rapport avec les performances du processeur 68000 que celles de son petit here. II permet. par 
exemple. de disposer de quelques 389 Ko avec le Basic et de constituer. si le coeur vous en dit. des 
tableaux de variables de plus de 64 Ko... 

Pour en revenir a la "ligne 6502". certains lecteurs semblent redouter que nous delaissions 1 Apple II 
pour le ile. Bien heureusement il nen est rien. Nous nous efforgons toujours de publier des program- 
mes compatibles Apple II - l/e ou //c (mis a part les problemes eventuels lies a I'utilisation des touches 
particulieres du clavier //e - //c). L Apple II est toujours d'actualite : n'ayez crainte nous ne vous laisse- 
rons pas tomber ! 

Herve Thiriez 



Pholo de couverture : ' Mise en ceuvre du 68000" aux editions Sybex 
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Pot-Pourri ProDOS 

Alexandre Avrane 



Les informations sur ProDOS 
commencent a devenir abondantes, 
ainsi d'ailleurs que les lettres des lec- 
teurs de Pom's demandant plus d'in- 
formation sur le nouveau systeme 
d' exploitation de 1' Apple II. 

Je vous propose done aujourd'hui de 
completer et detailler mon article 
paru dans le Pom's 13. Trois princi- 
paux sujets seront abordes, les indi- 
cations fournies par la lecture de Par- 
ticle precedent sur ProDOS etant 
supposees connues : 

1 - divers complements, donnes sans 
ordre prernedite. concemant les 
questions les plus frequentes: 

2- un programme de conversion de fi- 
chiers a acces direct DOS 3.3 / 
ProDOS; 

3- la methode d' initialisation des utili- 
taires systeme tournant dans un envi- 
ronnement ProDOS (il ne s'agit plus, 
comme par le passe, de creer des 
programmes egoYstes s'ignorant mu- 
tuellement. avec les problemes de 
contention memoire qui en resul- 
tent). 

La documentation 
ProDOS 

Apple diffuse quatre principaux ma- 
nuels sur ProDOS : 

1. Le "ProDOS User's Manual" ex- 
plique 1' utilisation des differents utili- 
taires livres avec la disquette systeme 
ProDOS (Filer, Convert, etc.). 

2. "Basic Programming with 
ProDOS" est le manuel de reference 
des commandes accessibles sous Ap- 
plesoft, telles que CATALOG. READ 
ou CREATE. De nombreux lecteurs 
nous ont ecrit pour nous signaler 
qu'ils n'avaient pas recu ce manuel. 
pourtant necessaire a 1' utilisation de 
ProDOS (et tout particulierement in- 
dispensable aux nouveaux utilisateurs 
de l'Apple lie qui ignorent tout du 
DOS 3.3). Ce manuel est apparem- 
ment commercialise separement, 
avec la disquette contenant APA 
(Applesoft Programmer's Assistant) 
qui offre des utilitaires de renumero- 
tation et fusion de programmes. 

3. "The ProDOS Technical Refe- 
rence Manual" est destine aux pro- 
grammeurs en assembleur desirant 
creer des modules appelant directe- 
ment ProDOS. Bien entendu, le 
fonctionnement interne de ProDOS 
n'est pas explique; seuls les points 
d'entree, et la maniere de les appe- 
ler, sont etudies. 

4. Enfin. "ProDOS Assembler Tools" 
explique le fonctionnement de l'as- 
sembleur 6502 (commercialise sepa- 



rement), ainsi que celui de l'utilitaire 
de mise au point Bugbyter (voir 
Pom's 13). 

Ces manuels sont naturellement dis- 
ponibles en francais. On peut s'eton- 
ner que seul le premier soit livre avec 
ProDOS. En fait, comme cela avait 
ete auparavant le cas avec le Dos 
Tool-Kit. Apple prefere proposer des 
produits complementaires plutot que 
de les fournir systematiquement. 

Demarrage d'unc 
disquette ProDOS 

Voici. donne plus en detail, le meca- 
nisme du "boot" sous ProDOS : 

1. Lors du "boot", lance par l'allu- 
mage de l'Apple ou des commandes 
telles que PR#6. 6<Ctrl-P> ou 
C600G, le processeur 6502 
commence par executer la routine 
contenue dans la ROM de la carte 
du controleur d' interface (s'il s'agit 
du slot 6, elle est situee en $C600 - 
$C6FF). Cette routine ignore tout de 
la disquette quelle va charger; il peut 
s'agir d'une disquette DOS 3.3, 
ProDOS, Pascal, CP/M, Forth ou 
meme d'un programme protege. Elle 
charge un ou plusieurs secteurs de la 
piste 0; pour ProDOS. les quatre 
premiers secteurs, e'est-a-dire les 
deux prerniers blocs, sont places en 
memoire a partir de 1'adresse $0800. 
Enfin. le processeur 6502 effectue un 
saut en $0801. 

2. Premier travail a effectuer : "Ou 
suis-je ?". Le programme commen- 
cant en $0801, extrait d'une dis- 
quette ProDOS, peut avoir ete 
charge par un Apple II ou un Apple 
///. Apres examen des ROMs du mo- 
niteur, celui-ci charge alors a 
1'adresse $2000, soit le fichier 
ProDOS pour un Apple II, soit le fi- 
chier SOS pour un Apple ///. S'il ne 
peut trouver le fichier recherche, le 
programme s'arrete avec un message 
d'erreur. A l'avenir, nous ne nous 
occuperons que de ProDOS sur un 
Apple II. 

3. Le fichier ProDOS contient le 
M.L.I. (Machine Language Interface) 
de ProDOS. e'est-a-dire son noyau 
(ou Kernel). A l'origine du develop- 
pement de ProDOS, celui-ci devait 
pouvoir fonctionner sur un Apple II 
de 48k en se placant sous 1'adresse 
$C000, ainsi que sur un //e de 64k 
en se placant sur la carte langage. 
Quelles qu'en soient les raisons. une 
seule version sur carte langage a ete 
commercialisee. et cette troisieme 
etape reloge done ProDOS sur l'ex- 



tension de 16k et place HIMEM 
(1'adresse de la plus haute memoire 
disponible) a $BF00. Petite digres- 
sion avant de poursuivre : il doit etre 
possible de placer ProDOS sur une 
extension memoire situee ailleurs que 
sur le slot (cela permettrait 1' utilisa- 
tion du Basic Integer sous ProDOS). 
Si un lecteur a realise une telle adap- 
tation... 

4. ProDOS mis en place, il faut 
continuer le "boot". Le MLI va done 
charger et executer le premier fichier 
qu'il trouve sur le catalogue principal 
de la disquette dont le nom est de la 
forme XXX.SYSTEM. Dans la majo- 
rite des cas, il s'agit de 
BASIC.SYSTEM qui permet l'inter- 
face entre un programme Applesoft 
et ProDOS. Un autre programme qui 
repond a cette convention peut etre 
appele, par exemple un programme 
professionnel de traitement de texte 
en langage machine. Si aucun fichier 
correct n'est trouve, on s'arrete la 
avec un message d'erreur. 

5. Tout fichier systeme se charge a 
1'adresse $2000 et doit assurer lui- 
meme son transfert a une adresse 
definitive, dependant de la position 
precedente de HIMEM. Ainsi le 
BASIC.SYSTEM se reloge a partir de 
1'adresse $9600 et fixe HIMEM a 
cette valeur. 

6. S'il s'agit de BASIC.SYSTEM, il 
recherche, toujours sur le catalogue 
principal, un fichier s'appelant STAR- 
TUP. Une fois trouve, celui-ci est 
charge et execute, quel que soit son 
EXEC) ' l ^ p ' :3 ' eso "' ass embleur ou 

Voila qui acheve le "boot" d'une dis- 
quette ProDOS; il faut retenir princi- 
palement que l'ordre des fichiers sys- 
teme sur le catalogue principal est 
d'importahce capitale. 
Petite parenthese avant de poursui- 
vre : il serait bon de pouvoir formater 
une disquette ProDOS sans devoir 
obligatoirement utiliser l'utilitaire sys- 
teme Filer. Si un lecteur a reussi a 
separer la routine de formatage de 
l'ensemble du programme, qu'il nous 
fasse signe... 

Complements sur les 
commandes ProDOS 

Tout d'abord une petite rectification 
par rapport a l'article de Pom's 13 : 
la commande CATALOG fournit un 
affichage sur 80 colonnes. et CAT 
sur 40 colonnes, et non 1' inverse. 

Voici, dans un desordre savamment 
dose, quelques complements : 
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- CHAIN permet, comme RUN, 
1' utilisation du parametre (d pour de- 
signer le numero de la premiere ligne 
d'execution. Attention : un tableau 
defini dans le premier programme ne 
peut etre redimensionne dans le se- 
cond. 

- EXEC comporte le parametre F 
(field) permettant de specifier le nu- 
mero de champ initial de 1' execution. 
II remplace le parametre R (record) 
du DOS. fort peu utilise d'ailleurs. 

- BLOAD et BRUN component les 
parametres B. E et L : B (beginning). 
E (end) ou L (length) permettent de 
choisir le chargement d une portion 
du fichier. au lieu de son integralite 
(l'utilisation de E ou L est exclusive). 

- BLOAD et BSAVE peuvent char- 
ger ou sauvegarder un fichier de type 
non-binaire. si on utilise le parametre 
T (type). Ce meme parametre est uti- 
lisable par OPEN et APPEND pour 
ouvrir un fichier non-texte. De plus le 
parametre L de BSAVE est etendu 
jusqu'a $FFFF. 

- READ et WRITE peuvent utiliser 
les parametres F (field) et B (byte.) 
pour debuter leur action plus loin 
que la position courante. Cette ex- 
tension rend inutile la commande 
APPEND qui est neanmoins conser- 
vee pour preserver la compatibility 
avec les programmes ecrits pour le 
DOS. 

- Les routines en assembleur speci- 
fies par les commandes IN# 
AS2000 ou PR# A$300. qui inter- 
cepted les entrees sorties vers un slot 
donne. doivent commencer par I'ins- 
truction 6502 CLD (CLear Decimal), 
afin de permettre a ProDOS de veri- 
fier leur existence; il s'agit d"un 
controle supplemental de securite 
qui evitera certains blocages clavier 
ecran. 

- APPEND peut etre utilise desor- 
mais dans un fichier a acces direct. 

Malgre son allocation dynamique de 
l'espace disque. ProDOS possede la 
meme limitation que le DOS 3.3 : 
tout fichier re-sauve avec une taille 
inferieure a sa taille initiale conserve 
1' integralite de ses blocs. II sera done 
encore necessaire d'effectuer regulie- 
rement un test de compression sur 
les fichiers. 

Nous verrons dans un prochain nu- 
mero la methode a utiliser pour ra- 
jouter de nouvelles instructions a 
ProDOS ainsi que. plus generale- 
ment. la programmation systeme qui 
doit suivre un certain nombre de 
regies. 

Quelques precisions sur le chemin 
d'acces d'un fichier. 
Pour acceder a un fichier sur un vo- 
lume. ProDOS concatene trois infor- 
mations : 

- le PREFIX, dont la valeur corres- 



pond initialement au nom du volume 
de demarrage, 

— le chemin d'acces reduit eventuel- 
lement precise dans la commande, 

— le nom du fichier. 

Ainsi pour un PREFIX 
/DISKPOMS/NOl/. si l'on emet l'ins- 
truction: LOAD UTIL DIRECT. 
CONVERT. ProDOS ira chercher : 
/DISK. POMS / NOl / UTIL / DI- 
RECT. CONVERT. 
Nota : si les parametres Slot et Drive 
sont egalement precises mais incom- 
patibles. ils seront ignores. 

Voici. pour terminer 1' etude des 
commandes ProDOS 
BASICSYSTEM. leur syntaxe : (pn 
= pathname = chemin d'acces re- 
duit + nom de fichier) 

APPEND pn [.LI] [.Ss] [.Dd] 
BLOAD pn [.Aa] [.Bb] l.Ll/Ee] 

[,Tt] [,Ss] [.Dd] 
BRUN pn [.Aa] [.Bb] [.LI Ee] 

[.Ss] [.Dd] 
BSAVE pn .Aa .LI Ee [.Bb] 

[.Tt] [.Ss] [.Dd] 
CATp 
CATALOG p 

CHAIN pn [,@n] [.Ss] [.Dd] 
CLOSE [pn] 

CREATE pn [.Tt] [.Ss] [.Dd] 
DELETE pn [.Ss] [.Dd] 
EXEC pn [,Ff] [.Ss] [.Dd] 
FLUSH [pn] 
IN# [s] [,] [Aa] 
LOAD pn [.Ss] [.Dd] 
LOCK pn [.Ss] [.Dd] 
OPEN pn [.LI] [.Ss] [.Dd] 
POSITION pn [.Ff] [.Bb] 
PREFIX p [.Ss] [.Dd] 
PR# [s] [.] [Aa] 
READ pn [.Rr] [,Ff] [.Bb] 
RENAME pnl.pn2 [.Ss] [.Dd] 
RESTORE pn [.Ss] [.Dd] 
RUN pn [,@n] [.Ss] [.Dd] 
SAVE pn [.Ss] [.Dd] 
STORE pn [.Ss] [.Dd] 
UNLOCK pn [,Ss] [.Dd] 
WRITE pn [.Rr] [.Ff] [.Bb] 

— pn [.Ss] [.Dd] 

Note: dans tous les cas. le parametre 
V (volume) du DOS 3.3 est autorise 
mais ignore. 

Et les codes erreurs possibles (acces- 
sibles par PEEK(222) si ONERR est 
actif) : 

02 Range error 

03 No device connected (ROM non 
trouvee sur le slot specif ie) 

04 Write protected 

05 End of data 

06 Path not found 

07 Path not found 

08 10 error 

09 Disk full 

10 File locked 

11 Invalid option 

12 No buffers available (maximum 
de 8 fichiers ouverts contre 16 sur 
DOS 3.3) 

13 File type mismatch 



14 Program too large 

15 Not direct command 

16 Syntax error (code identique au 
Basic, seul manque le '?' initial) 

17 Directory full (catalogue principal 
uniquement) 

18 File not open 

19 Duplicate filename (avec 
CREATE ou RENAME) 

20 File busy (si CAT. CATALOG. 
DELETE ou RENAME d'un fichier 
ouvert) 

21 File(s) still open (CLOSE impera- 
tif avant la fin de programme) 

Modifications des 
commandes Applesoft 

Trois points essentiels meritent d'etre 
soulignes : 

- II est possible d' utiliser la 
commande H1MEM. mais de maniere 
a ce que celui-ci se trouve sur une 
page memoire de 256 ($100) octets. 
En effet. ProDOS alloue dynamique- 
ment les buffers de fichiers en exami- 
nant la valeur actuelle de HIMEM. 

- L'instruction TRACE de l'Apple- 
soft fonctionne sans probleme sous 
ProDOS (en fait celui-ci utilise le 
TRACE pour controler le programme 
en cours !). 

- Errangement, la commande FRE 
qui permettait un nettoyage tres ra- 
pide de la memoire semble avoir dis- 
paru de la version commercialisee de 
ProDOS. De meme. deux ameliora- 
tions importantes de 1' Applesoft, qui 
etaient prevues dans les specifications 
originelles de ProDOS. ont disparu : 
d'une part la commande INPUT de- 
vait pouvoir accepter la saisie des ca- 
racteres de ponctuation telles que la 
virgule ou les deux-points: d' autre 
part ProDOS devait. a I'interception 
d'une instruction HGR ou HGR2. li- 
berer l'espace memoire correspon- 
dent pour les programmes Basic. Ap- 
paremment ces routines ont depasse 
le quota d'octets qui leur avait ete al- 
loue. d'ou leur suppression pure et 
simple. 

Utilisation avec carte 
80 colonnes etendue 

Caracteristique encore mal connue 
de ProDOS. celui-ci detecte automa- 
tiquement la carte 80 colonnes eten- 
due. Qu'en fait-il ? II cree un disque 
virtuel dans l'espace memoire auxi- 
liaire de 6 IK. accessible par le pre- 
fixe RAM. Le disque cree contient 
128 blocs de 512 octets arranges 
ainsi : 

Blocs 0-1 : non disponibles 

Bloc 2 : catalogue principal pour 12 

fichiers 

Bloc 3 : carte du volume 
Blocs 4-7 : non disponibles 
Blocs 8-127 : sous-catalogues et fi- 
chiers. 
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Ce volume, considere de maniere in- 
terne comme situe au Slot 3. Drive 
2. ne peut cependant etre reference 
que par son prefixe. Bien entendu. 
les informations qui y sont contenues 
disparaissent lorsque se retire le cou- 
rant electrique ! 

Conversion 
DOS/ProDOS de 
fichiers a acces direct 

L'utilitaire Convert de la disquette 
systeme ProDOS ne permet pas de 
convertir automatiquement les fi- 
chiers a acces direct. Deux difficultes 
majeures empechent. en effet. une 
conversion automatique : 

1. II est necessaire de specifier la lon- 
gueur d'un enregistrement. Cette va- 
leur. (bien que memorisee de ma- 
niere interne par ProDOS). doit 
imperativement etre indiquee au sys- 
teme d' exploitation afin qu'il recon- 
naisse un fichier a acces direct. 

2. Les informations du fichier peu- 
vent etre clairsemees (sparse file ou 
"fichier creux") : certains enregistre- 
ments ont ete ecrits, d'autres ne I'ont 
jamais ete et contiennent done des 
octets a zero binaire qui provoquent. 
a la moindre tentative de lecture, un 
irremediable "End of Data Error". 

Quelques rappels sur les fichiers a 
acces direct peuvent etre utiles : 

1. Un fichier a acces direct est un en- 
semble d'enregistrements de meme 
longueur. Ceux qui ont deja ete 
ecrits se terminent par un caractere 
retour-chariot : un enregistrement de 
longueur n contient n-1 caracteres si- 
gnificatifs suivis d'un Return. Certains 
fichiers a acces direct ont cependant 
une structure moins orthodoxe et 
contiennent des enregistrements a n 
caracteres significatifs : il est alors ne- 
cessaire de les lire par une serie de 
GETs et non par un INPUT. 

2. Chaque enregistrement (record) 
est compose de 1 a plusieurs champs 
(field). Ceux-ci peuvent etre de lon- 
gueur variable, a la condition que la 
somme de leur longueur soit cons- 
tante. Les champs sont separes entre 
eux. soit par un retour-chariot. soit 
par une virgule. selon I'humeur du 
programmeur. 

3. Sous DOS 3.3. le nombre de sec- 
teurs d'index d'un fichier ne peut de- 
passer la taille d une disquette: le 
programme : 

100 PRINT D$"OPEN F1CH- 
DIR.L'512 

110 PRINT D$ "DELETE FICHDIR'' 
110 PRINT D$ "WRITE FICH- 
DIR.R'200.122 
120 PRINT "A" 

130 PRINT D$ "CLOSE FICHDIR" 
sature quasi-completement les 140 
kilo-octets disponibles ... apres plus 
de 3 minutes d'execution. Le meme 
programme lance sous ProDOS n'al- 



loue que 6 blocs (3 kilo-octets), avec 
un gain comparable en Vitesse. 
Sous ProDOS. un fichier de 16 
mega-octets, peut done resider sur 
une disquette de 140K. pourvu que 
seuls quelques enregistrements aient 
ete ecrits. 
Deux remarques : 

- Sous ProDOS. il est necessaire 
d'ajouter la ligne : 105 PRINT 
D$"CLOSE FICHDIR" car tout fi- 
chier ouvert doit dorenavant etre ex- 
plicitement ferme. 

- Le programme CONVERT se 
plante lamentablement a la lecture 
du catalogue d une disquette Dos 3.3 
contenant FICHDIR ! Prudence 
done. 

4. En regie generale. I'enregistrement 
numero zero est utilise de maniere 
particuliere; il contient souvent le 
nombre d'enregistrements du fichier. 

Methodes de conversion 

Revenons a notre objectif de conver- 
sion de fichiers directs. Trois metho- 
des peuvent etre envisagees : 

1. Conversion du fichier direct en fi- 
chier sequentiel. puis conversion de 
ce dernier par Convert, enfin re- 
conversion du resultat en fichier di- 
rect. D'ou un total de 3 a 4 disquet- 
tes dont une 1 a 2 intermediaires. 
done beaucoup de manipulations et 
beaucoup de temps, plus la necessite 
que tous les enregistrements aient ete 
ecrits au prealable. ne serait-ce que 
par un simple Return. C'est la me- 
thode preconisee jusqu'a present. 

2. Re-formatage logique de la dis- 
quette DOS 3.3 en disquette 
ProDOS (ou vice-versa), sans alterer 
le contenu du ou des fichiers. C'est 
la methode la plus rapide mais egale- 
ment la plus hasardeuse et 
complexe. compte tenu des systemes 
differents d'allocation des blocs et 
secteurs. 

3. Lecture et ecriture simultanee de 
chaque enregistrement par I'utilisa- 
tion conjointe en memoire des deux 
systemes d'exploitation. Cette me- 
thode n'utilise aucune disquette inter- 
mediate, n'impose qu'un seul acces 
a chaque enregistrement. et est relati- 
vement facile a programmer en Ap- 
plesoft, lorsque les problemes de co- 
habitation memoire sont resolus. 

Cette derniere methode a ete rete- 
nue pour le programme CQFD (pour 
Conversion Qualifiee de Fichiers Di- 
rects !), qui impose la disponibilite de 
deux lecteurs de disquettes (ou un 
lecteur et un disque dur. pourquoi 
pas ?). ce qui ne devrait pas etre une 
contrainte importante. les fichiers a 
acces direct etant generalement utili- 
ses dans un environnement quasi- 
professionnel. En revanche, les enre- 
gistrements peuvent ne pas avoir ete 
initialises, les erreurs "End of Data" 



etant interceptees et gerees par le 
programme. 



Utilisation 

Une fois mis en place. CQFD 
convertit automatiquement tout fi- 
chier direct, selon differents parame- 
tres modifiables. et propose des va- 
leurs par defaut : - nom des fichiers 
origine et destination: 

- enregistrements termines ou non 
par un Return; 

longueur totale d'un enregistre- 
ment (y compris l'eventuel Return); 

- nombre de champs separes par un 
Return dans chaque enregistrement; 

- numero de debut et fin des enre- 
gistrements a convertir; 

- et, bien sur, le sens du transfert : 
DOS vers ProDOS ou I' inverse. 

L'utilisateur a la possibility de donner 
des commandes directes DOS 3.3 ou 
ProDOS sans sortir du programme 
afin. par exemple, de modifier les 
numeros de slot et drive du Dos ou 
le Prefix ProDOS. D'autre part, afin 
de minimiser le temps d'execution, 
les enregistrements ne sont pas lus et 
ecrits un par un, mais par bloc de 
plusieurs dizaines a plusieurs milliers 
selon la capacite memoire disponible. 

"CQFD" se compose de trois par- 
ties : 

- le programme Applesoft CQFD; 

- le module utilitaire en assembleur 
CQFD.B (source CQFD.B.S en Big 
Mac): 

- le fichier CQFD. DOS. 16K (voir 
plus loin). 

Tous trois doivent etre places sur une 
disquette ProDOS (ils peuvent etre 
transferes sans probleme par 
Convert). Apres avoir "boote" sous 
ProDOS. on lance le programme par 
un simple RUN CQFD. 

Dix messages d'erreur peuvent etre 
generes par le programme: il est bon 
de les detailler : 

- Fichier non precise : il faut saisir 
les parametres de conversion avant 
de demander le transfert. 

- Fin brutale de fichier : la fin du fi- 
chier a ete rencontree. Les enregis- 
trements lus a zero binaire ne provo- 
quent pas cette erreur: en revanche, 
la lecture d un fichier tellement clair- 
seme (creux) que certains blocs de 
donnees n'ont meme pas ete alloues 
par le systeme d'exploitation engen- 
drera cette erreur. II est alors neces- 
saire de definir une plage moins 
etendue d'enregistrements. 

- Erreur Systeme ; une (improba- 
ble ?) erreur due au programme. 
Les autres messages d'erreur s'expli- 
quent par eux-memes. L'interruption 
par CTRL-C est geree par le pro- 
gramme; en revanche, le Reset agit 
comme a l'habitude. 
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Demonstration du programme 

Deux fichiers directs de demonstra- 
tion (presents sur la disquette d'ac- 
compagnement) peuvent etre utilises 
pour observer le fonctionnement du 
programme : 

— CQFD.TEST1 contient quinze en- 
registrements (0 a 14) de longueur 
unitaire 24 contenant chacun trois 
champs de 7 caracteres suivis d'un 
Return. 

- CQFD.TEST2 contient quatre en- 
registrements. numerates 1. 19, 33 et 
73 de longueur unitaire 8. contenant 
un champ dont les 8 caracteres sont 
significatifs. 

Pour verifier le bon fonctionnement. 
il suffit de convertir un fichier dans 
un sens puis dans l'autre (sous un 
nom different !) puis de comparer le 
fichier original avec le fichier resultat. 
soit par un des utilitaires disponibles 
(le Filer de ProDOS par exemple). 
soit par la commande TDUMP 
(Pom's 12 p.28). 

Fonctionnement interne 

Le programme repose sur la pre- 
sence simultanee en memoire de 
ProDOS et du DOS 3.3, d'ou un 
premier probleme : ou les placer ? 
ProDOS se loge. dans sa version 
commercialisee, sur la partie haute 
de la memoire. En revanche le DOS 
est relogeable et une disquette Mas- 
ter peut le placer en 16K, 32K ou 
48K. selon la configuration memoire 
de 1' Apple. 

A I'evidence, la version 16K s'impo- 
sait: neanmoins comment obtenir 
une version assemblee en 16K lors- 
que Ton ne possede que des Apple 
de 48K ou plus ? Le petit pro- 
gramme CQFD.DOS. 16K. CREATE, 
liste plus loin, genere le fichier 
CQFD.DOS. 16K qui est 1" image ins- 
tantanee du DOS issu d une dis- 
quette Master avant qu'il ne se re- 
loge en 48K et charge le programme 
de HELLO. Ce programme n est 
destine qu'aux lecteurs de Pom's qui 
n'ont pas la disquette de ce numero. 
Je n'en detaillerai pas le fonctionne- 
ment car il est bien peu orthodoxe. .. 

Bref. vous avez les 3 fichiers CQFD. 
CQFD.B et CQFD. DOS. 16K que 
vous avez transferes vers une dis- 
quette ProDOS et vous lancez le pro- 
gramme CQFD. Celui-ci charge les 
deux autres fichiers (lignes 6000) et 
fixe LOMEM et H1MEM (ligne 150) 
afin d'obtenir I'allocation memoire 
suivante : 

$0000-$07FF . memoire partagee 



(fichier CQFD.B en 
$0300) 

$0800-$lAA5 : programme Apple- 
soft 

$1AA6-$1CFF : buffer Dos 3.3 
$1D00-$3FFF: Dos 3.3 en version 
16K 

$4000-$95FF : variables Applesoft 
$9600-$97FF: buffer de fichier 
ProDOS 

$9800-$FFFF : ProDOS + Applesoft 
+ Moniteur sur Rom et carte langage 

Le DOS 3.3 est demarre a froid pour 
qu'il s'initialise sans effacer le pro- 
gramme puis on lui fait comprendre 
que. pour une fois. les variables du 
Basic se situeront au-dessus de lui. 
Simultanement, on indique a 
ProDOS que les routines d' entree / 
sortie seront gerees par le Dos (ligne 
6500). Maintenant qu'ils ont fait 
connaissance, on obtient la hierarchie 
suivante pour I'interception des en- 
trees / sorties : 

1- en premier le DOS 

2- puis ProDOS 

3- qui renvoie a 1' Applesoft 

4- et finalement c'est le Moniteur qui 
travaille ! 

Un petit POKE permet de definir 
CHR$ (2) comme caractere de reveil 
du DOS. CHR$ (4) restant dirige 
vers ProDOS (ligne 3000). Tout se- 
rait parfait dans notre petite famille... 
malheureusement. a chaque erreur. 
les deux systemes d'exploitation se 
montrent insupportablement egoistes 
et tentent de se reconnecter en tete 
de la hierarchie; or ce ne sont pas les 
erreurs qui manquent. ne seraient-ce 
que les "End of Data" a la lecture 
des enregistrements vides ! II faut 
alors patiemment reconstruire la py- 
ramide: c'est le role du module 
CQFD.B qui comprend plusieurs par- 
ties : 

— redirection des entrees sorties 
entre DOS et ProDOS. 

— initialisation a froid du DOS sans 
perte ni arret du programme; 

— routine fixant le bug du traitement 
d'erreur de 1' Applesoft; 

— routines de saisie generale : & 
INPUT accepte les virgules et autres 
caracteres insolites; & GET permet la 
lecture de plusieurs caracteres et leur 
concatenation pour former une varia- 
ble Applesoft (syntaxe ; & GET 
<nom variable>, <longueur varia- 
ble»; 

— interception des erreurs de lecture 
du DOS car celui-ci (bug que j'igno- 
rais !) "oublie" la longueur des enre- 
gistrements d'un fichier direct apres 
un "End of Data". 



Afin d'accelerer le programme de 
transfert. les enregistrements sont lus 
et ecrits par bloc. La taille du bloc 
(determinee en ligne 753) permet 
une utilisation optimale de la me- 
moire vive disponible (compte tenu 
des besoins de ProDOS pour ses 
buffers). 

En corollaire le programme utilise un 
systeme d'allocation et liberation dy- 
namiques pour le tableau A$(M.N) 
contenant tous les champs de tous 
les enregistrements du bloc en 
cours : quelques PEEKs et POKEs 
(lignes 1010. 1070, 1237, 1240) suf- 
fisent, pourvu que le tableau soit la 
derniere variable Applesoft declaree 
dans le programme. 

Quelques remarques generates avant 
de terminer ; 

1. Le programme peut etre modifie 
dans la mesure ou il ne depasse pas 
la dizaine d' octets restant disponibles 
avant le buffer du DOS (on peut eli- 
miner les remarques); neanmoins, at- 
tention a certaines instructions d'ap- 
parence anodine (telles que 1'INPUT 
de la ligne 6060) qui sont neanmoins 
necessaires pour 1' initialisation et 
l'equilibre du systeme. 

2. L'allocation de l'espace disque est 
moins efficace sous DOS 3.3; vous 
pouvez done obtenir des erreurs 
"DISK FULL" en convertissant de 
ProDOS vers DOS. et a plus forte 
raison a partir d'un gros fichier sur 
disque dur. 

3. En sortant du programme, vous 
avez la possibility de conserver les 
deux systemes d'exploitation actifs. 
La hierarchie decrite ci-dessus reste 
valable mais les interceptions ne sont 
pas prevues pour une utilisation di- 
recte des commandes : essayez (c'est 
sans risque) et comparez ! Pour acti- 
ver un systeme ou l'autre, allez sous 
le Moniteur et tapez sur la meme 
ligne ; 

• [ctrl-P] [ctrl-K] BE00G pour 
ProDOS 

• [ctrl-P] (ctrl-K] 1DBFG pour 
DOS 

Deux observations : 

1) sous DOS ou 1' Applesoft, l'appui 
sur la touche Return provoque un 
double saut de ligne. sous ProDOS 
un seul saut est genere. 

2) N'oubliez pas que les commandes 
PR#, IN#. LOAD et SAVE sont a la 
fois des instructions DOS. ProDOS et 
Applesoft... lequel des trois reagit en 
premier ? 



1 REM »* CQFD.DOS. 16K. CREATE ** 

2 REM AA/2510 84/V1 
10 D* = CHR* <4> 

20 F* = -CQFD.DOS. 16K" 

100 IF PEEK (104) = 8 THEN POKE 104,64 



: POKE 16384,0: PRINT D*"RUN CQFD. 

DOS. 16K. CREATE" 
110 TEXT : HOME : PRINT "GENERATION DOS 

3.3 SUR ENVI RONNEMENT 16K" 
120 PRINT : PRINT : INPUT " INSEREZ UNE D 
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I SQUETTE MAITRE (AVEC DOS RELOGEA 
BLE) EN SLOT 6, DRIVE 1 — >";Z* 
130 A* = "300 :A0 B9 C6 99 96 88 DO 
F7 A9 60 8D F8 96 20 96 A? 60 8D 

4A 8 20 1 8 A9 60 8D 47 37 4C EA 
3": GOSUB 700 
135 A* = " 230 < 30 . 3CFM " : GOSUB 700 
150 CALL 560 
155 POKE 49384,0 

160 HOME : * PRINT " INSEREZ UNE DI SQUETTE 
RECEPTRICE DU" , " FI CHI ER "F*" EN SL 
OT 6, DRIVE l:"j: INPUT "";Z* 

170 PRINT D*"BSAVE"F«" ,A*1 D00 , L*2300 , S6 , 
Dl ,V0" 

180 PRINT " FI CHI ER GENERE . " : PRINT D*"FP 

700 A* = A* + " ND9C6G" : FOR I = 1 TO LE 
N (A*): POKE 511 + I, ASC < MID* ( 
A* ,1,1)) + 128: NEXT : POKE 72,0: 
CALL - 144: RETURN 



1 REM CQFD 

2 REM (C) 1984 Alexandre Awrane 

3 REM 25/oct/84 

4 REM Versi on 8.4 

100 NOTRACE : ONERR GOTO 8500 
115 IF PEEK (175) + 256 * PEEK (176) > 
6810 THEN FLASH : PRINT "PROGRAM 
ME TROP GRAND!": NORMAL : END 
117 IF PEEK <55) < > 183 THEN FLASH : 
PRINT "VOUS N'ETES PAS SOUS PRODO 
S ! " : NORMAL : END 
120 PRINT CHR* < 4) "CLOSE": POKE 116,150 
: GOSUB 5000: IF PEEK (768) < > 
216 THEN GOSUB 6000 
150 GOSUB 6500: POKE 105,0: POKE 106,64: 

POKE 115,0: POKE 116,150: CLEAR 
170 GOSUB 3000 
180 GOSUB 2000 

190 J = 0: GET A*: FOR I = 1 TO LEN <T*> 
:J = J + (A* = MID* <T*,I,1>): NE 
XT : IF NOT J THEN 190 

499 REM GESTI ON DU MENU 

500 PRINT : ON A* = "T" GOTO 1000: ON A* 

= "F" GOTO 700: IF A* = "C" THEN 
X*<0) = CHR* (2) + " CATALOG, S" + 

STR* (DS) *■ ",D" + STR* (DD):X*( 
1) = CHR* (4) + "CAT" + PF*: TEXT 

: HOME : PRINT X*(S): GET Z* 
530 IF A* = "S" THEN S = 1 - S 
540 IF A* = "P" THEN TEXT : HOME : PRIN 
T "Commande ProDOS:": PRINT "->";: 

& INPUT ZS: IF Z* < > " " THEN 
PRINT CHR* (4)Z»: GET Z* : GOTO 54 


550 IF A* = "D" THEN TEXT : HOME : PRIN 
T "Commande Dos 3.3:": PRINT "->"; 
: 4 INPUT Z*: IF Z* < > "" THEN 

PRINT CHR* <2)Z*: GET Z* : GOTO 5 
50 

555 DS = PEEK (14313) / 16:DD = PEEK (1 

4314): IF A* < > "X" THEN 180 
570 PRINT : PRINT CHR* (2) "CLOSE": PRIN 
T CHR* (4) "CLOSE": HOME : PRINT : 
PRINT "P: Retour sous Appleso-ft + 
ProDOS", "D: Retour sous Appleso-ft 
+ Dos 3.3","!: Retour sous Apples 
o-ft + ProDOS+Dos" 
580 GET Z*: IF Z* < > CHR* (27) AND Z* 
< > "D" AND Z* ( > "P" AND Z* < 
> " ! " THEN 580 
585 ON Z* = CHR* (27) GOTO 1: TEXT : HO 



ME : IF Z* = "D" THEN PRINT CHR* 
(2) "FP" 

600 IF Z* = "P" THEN PRINT CHR* (4) "PR 

t*0": PRINT CHR* (4)"IN«0" 
610 END 

699 REM SELECTION DU FI CHI ER 

700 VTAB 13: CALL - 958: PRINT : POKE 3 

4,12: POKE 35,22: PRINT : PRINT "N 
om du fichier origine:":X* = FI*: 
GOSUB 7000: I F Z* < > "" THEN FI* 
= Z* 

720 F2* = FI*: PRINT : PRINT "Norn du fich 
ier dest i nat i on : " :X* = F2«: GOSUB 
7000: IF Z* < > "" THEN F2* = Z* 

725 PRINT : PRINT " Enreg i stremen ts termi 
n<s","par un re tour-char i ot (o/n) 

0"B*(l)j: GOSUB 7100 :LX = Z: IF 
NOT LX THEN LF = 1 

730 PRINT : PRINT "Longueur total e d'un 
enregi strement : " :X* = STR* (LR): 
GOSUB 7000: IF Z AND Z < K64 THEN 
LR = Z 

750 IF LX THEN PRINT : PRINT "Dans chaq 
ue enregi strement ,", "nombre de cha 
mps s<par <s" , "par un re tour-char i o 
t:":X* = STR* (LF): GOSUB 7000: I 
F Z AND Z < K64 THEN LF = Z 

753 BY. = ( FRE (0) - 2048) / (LR + 3 » LF 
+ 9) 

755 IF LR + 3 * LF > FRE (0) THEN PRIN 
T CHR* (7) CHR* (7): INVERSE : PR 
INT "TAILLE D' 1 ENRGT > MEMOIRE DI 
SPONIBLE";: NORMAL : GET Z* : GOTO 
700 

760 PRINT : PRINT "No premier enrgt:":X* 
= STR* (Rl): GOSUB 7000: IF Z > 
- 1 AND Z < Ml 6 THEN Rl = Z 
770 R2 = INT (M16 / LR) : PRINT : PRINT " 
No dernier enrgt:":X* = STR* (R2) 
: GOSUB 7000: IF Z > = Rl AND Z < 
Ml 6 THEN R2 = Z 
780 GOTO 180 

999 REM CONVERSION 

1000 HOME : IF FI* = "" THEN ER = 2: GOS 

UB 8000: PRINT : GOTO 180 
1005 II = R1.-I2 = R1:K = 0:T = 0:ER = 
1010 POKE 7, PEEK (109): POKE 8, PEEK (1 

10) : DIM A*(BX - 1 ,LF - 1 ) 
10 30 REM LECTURE 

1040 PRINT Dl*"OPEN*Fl*" ,L"LR: CALL 928 
1070 POKE 3, PEEK (111): POKE 4, PEEK (1 
12) 

1075 FOR J = TO BY. - 1 
1080 : PRINT Dl * " READ" F 1* " , R" 1 1 
1090 : PRINT "Lecture ♦* - 1 1 ; 
1 100 : FOR K = TO LF - 1 

1110 : IF LX THEN & INPUT A*(J,K): GOTO 
1 130 

1 120 : & GET A*( J,0) , LR 

1125 IF S THEN VTAB PEEK (37) 

1130 IF LEN (A*(J,K)> THEN IF NOT AS 

C ( LEFT* (A*(J,K),1)) THEN A*(J,K 

) = "» 

1135 HTAB 10 + LEN ( STR* (ID): CALL 

- 868: PRINT ,A*(J,K)j: IF NOT L 
EN (A*(J,K)) THEN INVERSE : PRINT 
, "VIDE" J : NORMAL :K = LF - 1 
1140 : PRINT : NEXT :I1=I1+1:IFI1> 

R2 THEN J = BY. 
1150 : PRINT Dl*: NEXT : PRINT D1*"CL0SE" 
FI* 

11 60 REM ECRITURE 

1165 PRINT "Ecriture tt"I2"-"Il - 1: PRIN 
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T D2*"0PEN"F2»" ,L"LR 
1170 FOR J = TO BX - I 

1175 : IF NOT LEN <A*<J,0)) THEN 1220 

1180 : PRINT D2*" WRITE" F2*" , R" I 2 

1190 : FOR K - TO LF - 1 

1200 : : PRINT A*< J,K> j 

1205 :: IF K < LF - 1 THEN PRINT 

1210 : NEXT : IF LX THEN PRINT 

1220 :I2 - 12 + 1: IF 12 > R2 THEN J = BX 

1230 : PRINT D2* : NEXT 

1235 PRINT D2* " CLOSE "F2* 

1237 POKE 109, PEEK <7): POKE 110, PEEK 

<8) 

1240 POKE 111, PEEK <3>: POKE 112, PEEK 
<4): IF II < = R2 THEN 1010 

1280 FLASH : PRINT : PRINT SPC< 5)"«»* 
CONVERSION TERMINEE ***" SPC< 6) C 
HR* (7): NORMAL : WAIT 49152,128: 
GOTO 180 

1999 REM MENU 

2000 60SUB 5000: VTAB ll PRINT "CONVERSI 

ON QUALIFIEE DE FICHIERS DIRECTS": 
PRINT SPC< 7>"<C> 1984 ALEXANDRE 
AVRANE" SPC< 8): POKE 33,38: POKE 
32,1: POKE 34,5: POKE 35,23: HOME 

PRINT C*< 1 ) "PREFIX" : INPUT PF* 
Dl* = C*<S):D2* = C*<1 - S) :A* = Fl* 
: IF A* THEN A* = A* + ",L" + STR 
* <LR) 

PRINT SPC< 8)S*(S): PRINT : PRINT 
" Dos 3.3: S"DS",D"DD: PRINT " Pro 
DOS : "PF*: PRINT ■ Fichier: "A*: 
FOR I = 1 TO 38: PRINT "_" ; I NEXT 
PRINT : PRINT " P: Donne une comman 
de ProDOS" : PRINT " D: Donne une c 
ommande Dos 3.3": PRINT " S: Inver 
se le sens du trans-fert" 
PRINT " C: Catalogue volume origine 
": PRINT " F: Selection du -fichier 
": PRINT " T: Trans-fert tc conversi 
on" : PRINT " X: Sor t i e " 
PRINT : HTAB 17: PRINT "-> <-" ; : HT 

AB 19: RETURN 
REM INITIALISATIONS 

DIM C*<1):C*<0) = CHR* <2>:C»<1> = 
CHR* <4>: POKE 10930,130: REM ct 
rl-B pour DOS 
T* = "PDSCFTX": DIM X*(1):S = 0: REM 
sens initial 

DIM S*<1):S*C0) = "DOS 3.3 > PR 

ODOS" :S*< 1 ) = "PRODOS > DOS 3. 



2030 
2040 



20 60 



20 80 



20 90 



2100 

2999 
3000 



30 20 
3050 

30 60 
30 70 
3080 



65536 : LR = 

- PEEK (4 
i we par dC-f 



3" :M16 = 16777215-.K64 
1 :LF = 1 
DS = PEEK (48700) : DD = 3 
8701): REM sur autre dr 
aut 

DIM B*<30) :B*< 1 ) = CHR* 
= 2 TO 30 :B*< I ) = B*< I 

R* < 8 ) : NEXT 
DIM PE*< 1 ) :PE*<0) = "01225833745906 

0900":PE*<1) = "018758337459060994 



(8) : 
- 1 ) 



FOR I 
+ CH 



30 90 
3100 

31 10 



4999 
5000 



6000 

6010 

60 20 
60 30 
6050 
60 60 

6500 
7000 



7010 
7100 



7999 
8000 

80 10 



80 20 

80 30 
8040 
8500 



8520 

8523 

8525 
8550 
11000 



DIM ER*(9): FOR I = TO 9 : READ ER 
*< I ) : NEXT 

DATA *»» ERREUR SYSTEME ***, FICHIER 
NON PREC I SE , PARAMETRES DE TRANSFE 
RT I NVAL IDES, VOLUME OU FICHIER INC 
ONNU.DISQUE OU DIRECTORY PLEIN 

DATA FICHIER OU VOLUME VERROUI LLE ,T 
YPE DE FICHIER INVALI DE , ERREUR D'E 
NTREE/SORT I E , F I N BRUTALE DU FICHIE 
R , COMMANDE ; PREFIXE OU FICHIER INV 
ALIDE 

• REM MODULES UTI LITAI RES 
TEXT : COLOR= 2: FOR I = 47 TO ST 
EP - 1: HLIN 0,39 AT I l NEXT : RE 
TURN 

PRINT CHR* <4)"BL0AD DOS . 1 6K , A* 1 DO 
0" 

POKE 10929,1: POKE 10930,130: REM m 

ax-f i les=l & Ctrl -b 
PRINT CHR* <4)"BL0AD CQFD . B , A*300 " 
CALL 776: POKE 1014,60: POKE 1015,3 
GOSUB 6500 

TEXT : CALL - 868: INPUT "Appuyez 
sur <Return> pour commencer : " ; Z* : 
RETURN 

PRINT CHR* (4) "PR«A*300" : PRINT C 

HR* < 4) " INttA*304" : RETURN 
PRINT "==>"X*B*< LEN (X*));: INPUT 

"";Z*:Z = INT < VAL <Z*)): IF Z* 

= "" THEN VTAB PEEK <37): HTAB 4 

: PRINT X* 
RETURN 

GET Z*: ON Z* < > 
* < > "N" AND Z* 
< > "n" AND Z* < 
: PRINT Z*:Z = < Z* 



CHR* ( 13) AND Z 
< > "O" AND Z* 
> "o" GOTO 7100 
"O" OR Z* = " 



o" OR Z* = CHR* <13)): RETURN 

REM GESTION DES ERREURS 

HOME : PRINT : ER = VAL < MID* < PE* 
<T) , ER , 1 ) ) 

HTAB 19 - LEN < ER*< ER) ) / 2 + .5: 
FLASH : PRINT CHR* <7)ER*<ER) CHR 
* <7): NORMAL : PRINT : PRINT " C Re 
turn]->continue, C Esc I ->abandonne " 



<13) THEN RETURN 



= 183) : 
act i -f et 



CA 
r 



GET Z*: IF Z* = CHR* (27) THEN PR 

INT : RUN 
IF Z* = CHR* 
GOTO 8020 

CALL 818:T = < PEEK (55) 
LL 804: REM vCr i -f i e Dos 
Ctabl i t ProDOS 
ER = PEEK (222) + 1 : IF ER 
EN 570 
IF ER = 6 AND NOT 

NOT T THEN 1 1 30 
IF ER > 18 THEN ER 
GOSUB 8000: PRINT 
PRINT CHR* <4)"PR«1": PRINT CHR* 
(27) "A" CHR* <5): PRINT CHR* (9) 
"90N": LIST 0,9999: PRINT CHR* (4 
)"PR*»0": END 



> 254 TH 



PEEK <986) AND 
: RESUME 



1 *»»:*•*-*■*•»•*•**■■»:•*•***■**■*•****•*■*«■*■*•■*•*•«■** 

2 * CQFD . B * 

3 ********»»»*»*****»**»***»*»#»»** 
4 

5 * Module appele par CQFD 

6 * (conversion qualities de 

7 * i i ch i ers d i rec ts) 
8 

9 ♦ Copyright <C) 1984 A.Aurane 



10 * 20/oct/84 
1 1 

12 * Toutes <*dresses pour dos en 16k 
13 

14 ORG *300 

15 

16 ******««**»«■*»*•*»*»***»******»»** 

17 * VECTORISATION E/S PRODOS->DOS * 

18 ***»*««»»***»**»*«»*»****»*«**«** 
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1? 

20 

21 
22 
23 

24 
25 

26 
27 
28 
2? 
30 
31 
32 

33 
34 
35 

36 
37 

38 
3? 
40 

41 

42 

43 

44 
45 
46 
47 

48 
4? 

50 
51 

52 
53 
54 
55 
56 
57 
58 
5? 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 
72 

73 

74 
75 
76 



* Ces routines doivent debuter par 
un ' CLD' pour etre validees 



w 



w 



CLD 

JMP * 1 EBD 
CLD 

JMP *1E81 



dos 3.3 cs 
dos 3.3 Ks 



********************************* 

* INITIALISATION PRODOS+DOS 1 6K * 
********************************* 

LDA tt*60 ' RTS' 

STA *1DE7 pour retou 

r apres dernarrage a -froid 

JSR *FE8? pr#0 

JSR *FE93 in*0 

JSR *1D84 1 e dos s' i 

nitialise en *1DOO-*3FFF 

LDA «*A0 caractere 
blanc envoye a 1 ' af f i chage . . . 
LDX ttO 
LDY HO 

JSR *1 EBD . . .pour te 

rminer l'initialisati on du dos 



LDA H*6C 
rect retablit le Dos... 

STA *1DE7 
rmette la commande "FP" 

JSR *FE8? 
JSR *FE?3 
JSR *9AAF 
nd la main sur csw/ksw 
LDA HO 
STA *24 
htab pour ProDos 
RTS 



' JMP' indi 
. . . pour pe 



prHO 
i nHO 

ProDos pre 



i n i t i al i se 



********************************* 
* ROUTINE D'ERREURS D' APPLESOFT * 
********************************* 



PLA 
TAY 
PLA 

LDX *DF 
■? Dointour de oil? 

TXS 
PHA 
TYA 
PHA 
RTS 



retabl i t 1 



********************************* 

• ROUTINE DE SAISIE PAR 'INPUT' * 
********************************* 

CMP H*BE token de 6 

ET? 

BNE INPUT non 
JSR $0081 lit 1 e car 

actere suivant 

JSR *DFE3 cherche ou 

cree la variable, -fixe *83 
PHA 
TYA 
PHA 



77 JSR *DD6C control e 
qu ' i 1 s'agit d'une chafne 

78 JSR *DEBE ver i f i e la 
presence de la virgule 

79 JSR *E6F8 " recoi t 1 a 
longueur demandee... 

80 STX *06 . . .et la s 
auvegarde 

81 PLA 

82 STA *83+l restore *8 
3=adresse du descripteur de la uar 





i abl e 




83 


PLA 




84 


STA *83 




85 


LDX m 




86 


LOOP JSR *FD0C 


1 i t un car 




actere . . . 




87 


STA *200,X 


et le stoc 




ke dans le buffer d'entree 


88 


JSR *FDED 


on 1 'envoi 




e en sortie via 1 es Dos 




89 


I NX 




90 


CPX *06 


suf f i samme 




nt de caracteres? 




9 1 


BCC LOOP 


pas encore 


92 


BCS TRANSFER 


= jmp 


93 






7 


INPUT LDA «*84 


token d'lN 




PUT 




7 ..' 


JSR tDECO 


ver i f i e pr 




esence du token 




7 O 


JSR *DFE3 




97 


JSR SDD6C 




op 






99 

7 7 


LDX «*80 




i nn 


STX *33 


trompe 1 e 




mon i teur e t . . . 




1 1 


JSR SFD6A 


. . . appe 1 1 e 




sa routine d'entree 1 i gne 


1 02 


STX *06 


on conserv 




e 1 a 1 ongueur 




103 






104 


TRANSFER JSR «D539 


formatte 1 




a chatne pour Applesoft 




105 


LDA tO 6 


on prend 1 




a 1 ongueur . . . 




106 


JSR *E452 


. . . e t on d 




emande de la place en memoire 


107 






108 


LDX «<*200 




109 


LDY t*>*200 


le buffer 




clavier contient notre chaTne, 


1 10 


JSR SE5E2 


on la dep 1 




ace la ou on a trouve de la place 


1 1 1 






1 1 2 


LDi no 




1 13 


LDA *06 


on place s 




a 1 ongueur . . . 


• 


114 


STA <*83),Y 


. . . dans 1 e 




descr i p teur 




115 


I NY 




116 


LDA *6F 


a i n s i que 




son adresse de stockage 




1 1 7 


STA <*83),Y 




1 18 


I NY 




119 


LDA *6F+1 




120 


STA <*83) ,Y 




121 


RTS ; c'est fin 


i ! 



122 

123 *******»*«*******»**»»***»****»»* 

124 * PATCH DU DOS 3.3 POUR LECTURE * 

125 a******************************** 
126 
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127 

128 
12? 
130 
131 
132 
133 

134 
135 
136 
137 

138 
139 
140 
141 
142 
143 
144 
145 



LDA 



al i se 



] e 



e pa 
STA 
LDA 
STA 
LDA 
STA 
LDA 
s yal eurs 
STA 
LDA 
STA 
LDA 
fin de f 
STA 
LDA 
STA 
LDA 
STA 
RTS 



**4C 'jmp' init 

tch 
♦ 22B7 
»<P 

*22B7+ 1 
«>P 

*22B7+2 

*2A6C sauvegarde 
de longueur d'enrgt. 
*22BA 
*2A6C+1 
♦22BA+1 
»<Q 
i ch i er 
*2CB? 
#>Q 

*2CB?+1 
«0 

FLAG" EOF 



et patch p 



LDA *228A 



le dos "ou 



blie" le parametre L d'un -fichier. 

146 STA *2A6C ...a chaqu 
e erreur, meme interceptee par 
NERR 

147 LDA S22BA+1 II -faut do 
nc 1 u i rappe 1 er si... 

148 STA *2A6C+1 ...on ne g 
eut pas constamment reouurir le i i 
ch i er 

149 JMP *22BC 
150 

151 FLAG" EOF DFB 

152 Q LDA ttl 

153 STA FLAG" EOF indique ii 
n de -fichier (et non donnee nulle) 



154 



155 
156 



JMP *336F . . .part en 

END OF DATA intercepte par ONERR 
GOTO 

END 



300 .3E2 
















0348- 


48 


20 


6C 


00 


20 


BE 


DE 


20 


3A0- 


A9 


4C 


8D 


87 


22 


A9 


C8 


80 




















0350- 


F8 


E6 


86 


06 


68 


85 


84 


68 


03A8- 


38 


22 


A9 


03 


8D 


B9 


22 


AD 


0300- 


D8 


4C 


BD 


IE 


08 


4C 


81 


IE 


0358- 


85 


83 


A2 


00 


20 


OC 


FO 


90 


0380- 


6C 


2A 


80 


BA 


22 


AO 


60 


2A 


0308- 


A9 


60 


80 


E7 


10 


20 


89 


FE 


0360- 


00 


02 


20 


ED 


FD 


E8 


E4 


06 


0388- 


8D 


B8 


22 


A9 


OB 


80 


B9 


2C 


0310- 


20 


93 


FE 


20 


84 


ID 


A9 


AO 


0368- 


90 


F2 


B0 


14 


A9 


84 


20 


CO 


03C0- 


A9 


03 


80 


BA 


2C 


A9 


00 


80 


0318- 


A2 


00 


AO 


00 


20 


BD 


IE 


A9 


0370- 


DE 


20 


E3 


DF 


20 


6C 


DO 


A2 


03C8- 


DA 


03 


60 


AD 


3A 


22 


8D 


6C 


0320- 


6C 


8D 


E7 


ID 


20 


89 


FE 


20 


0378- 


80 


86 


33 


20 


6A 


FD 


86 


06 


03D0- 


2A 


AD 


SB 


22 


80 


60 


2A 


4C 


0328- 


93 


FE 


20 


AF 


9A 


A9 


00 


85 


0380- 


20 


39 


D5 


A5 


06 


20 


52 


E4 


0308- 


BC 


22 


00 


A9 


01 


8D 


DA 


03 


0330- 


24 


60 


68 


A8 


68 


A6 


DF 


9A 


0388- 


A2 


00 


AO 


02 


20 


E2 


E5 


AO 


03EO- 


4C 


6F 


33 












0338- 


48 


98 


48 


60 


C9 


BE 


DO 


2C 


0390- 


00 


A5 


06 


91 


83 


C8 


A5 


6F 




















0340- 


20 


Bl 


00 


20 


E3 


DF 


48 


98 


0398- 


91 


83 


C8 


A5 


70 


91 


83 


60 





















BON JOUR LES PRIX!! 



NOS PRIX SONT F ™= 



Carte langage 400 

Carte 128 k ram 1550 

Carte 80 colonnes 700 

Interface serie 520 

Super serie 1000 

Interface parallele 380 

Grappler+ buffer 16 k 1350 
Carte modem Integre 1085 

Carte Z 80 410 

Wildcard 400 



Speech card 
Carte horloge 
Joystick 
Ventilateur 
Controleur de drive 
Lecteur Disk "Slim' 
Moniteur vert 12" 



320 
500 
165 
280 
370 
1900 
950 



Disquettes 5" 1/4 S.F./S.D. par 1 boite 130/boite 
Disquettes 5" 1/4 S.F./D.D. par 1 boite 175/boite 



AU-DESSUS, NOUS CONSULTER. 



Carte bleue et eurocard acceptees 

Vente par correspondance: nous consulter. 



Computer 3 

3, rue Papillon 75009 Paris - Tel.: 523.51.15 
(metro Poissonniere) ouverture du lundi au samedi de10ha19h30 
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Gerer la date ProDOS sans carte horloge 



Le systeme ProDOS, entre autres 
ameliorations par rapport au DOS 
3.3, permet de dater les fichiers. II 
prevoit, pour chacun d'entre eux, 
une date de creation et une date de 
modification. Cette datation se fait 
automatiquement si 1' Apple possede 
une carte horloge; malheureusement. 
rien n'est prevu pour ceux qui n'en 
ont pas et rien n'est plus desagreable 
que d'avoir des fichiers dates de NO- 
DATE... 

Heureusement, Apple a bien docu- 
ments l'emplacement et le format de 
la date du systeme; la date est sto- 
ckee sur 2 octets, en 49040 - 
49041 ($BF90 - $BF91). Une pre- 
miere solution consiste a mettre, soi- 
meme. la date a jour. 

Demarche a suivre 

- Multiplier le numero du mois par 
32. 

- Soustraire 256 si le resultat obtenu 
est strictement superieur a 255 (ce 
qui se produit a partir du mois 
d'aout). 

- Ajouter a ce resultat le jour du 
mois; on obtient alors un premier 
nombre A. 

- Multiplier l'annee par 2 et ajouter 
1 si on a du soustraire 256 a A; on 
obtient un deuxieme nombre B. 

- II n'y a plus qua POKEr les nom- 
bres trouves aux bonnes adresses ou 
les saisir sous le moniteur (si Ton 
prefere convertir en hexa...). 
Exemple ; le calcul, pour la date du 
21 decembre 1984, s'effectuera 
comme suit : 

A = 32 * 12 = 384. II est superieur 
a 255 et devient done 
A = 384 - 256 = 128. Cette opera- 
tion faite, on lui ajoute le jour. 
A = 128 +21 = 149. 
A etant trouve on peut calculer B. 
B = 84 * 2 + 1 = 169. 
Nous arrivons a la derniere etape. 
POKE 49040,149 
POKE 49041.169 
ou encore ; 
CALL-151 
BF90: 95 A9 
3D0G 

C'est peut-etre fastidieux, mais e'est 
efficace. 

La deuxieme solution consiste a em- 
ployer un utilitaire, comme celui que 
nous vous proposons ici, qui realise 
la meme chose. Mieux encore, il 
garde en memoire la derniere date 
entree et permet de la modifier. 



Grace aux fleches gauche et droite 
on modifie le jour, utilisees avec 
"Pomme Pleine" on modifie le mois; 
l'annee est changee automatique- 
ment (le passage de decembre a jan- 
vier enframe une incrementation et 
celui de janvier a decembre une de- 
crementation ); enfin la date affichee 
est acceptee par RETURN. 
En faisant le catalogue, on peut 
connaftre la date de la derniere utili- 
sation d'un disque (puisqu'elle est 
stockee dans la directory comme 
date de modification du programme 
DATE). 

Le programme propose peut etre uti- 
lise par la commande -DATE (smart 
RUN). II est peut-etre plus simple de 
l'inclure dans un programme STAR- 
TUP de maniere a ce qu'il s' execute 
automatiquement, en prenant garde 
de l'appeler sous la forme ; 
PRINT CHR$(4);"-DATE" 
si on tient a avoir la vraie date (celle 
de modification de DATE). En effet, 
pour economiser les acces disque et 
la place memoire, le programme uti- 
lise la table de parametres du dernier 
programme auquel ProDOS a ac- 
cede. 

Appel de ProDOS en 
langage machine 

L' utilisation des routines ProDOS est 
relativement simple par rapport au 
DOS 3.3 du fait qu' Apple a prevu 
une procedure et un point d'entree 
uniques par un appel au Machine 
Language Interface (MLI). Les seules 
donnees a fournir sont : un code 
d'operation et l'adresse de la table 
des parametres adaptee a cette ope- 
ration. 
JSR $BF00 
DFB CodeOp 
DW Adr.Par 

Dans notre probleme, on pourrait 

utiliser les codes suivants : 

$C4 : GET - FILE - INFO retour- 

nant les 15 parametres definissant le 

fichier dans la directory 

$C3 : SET - FILE - INFO reecri- 

vant les dits parametres (a l'exclusion 

de ceux concernant la creation evi- 

demment). 

Mais pour economiser de la place 
memoire. de maniere a ce que le 
programme tienne dans la zone 
calme de la page 3, on peut aussi 
utiliser 1' acces a ProDOS contenu 
dans la 'page globale' du Systeme 



Frangois Sermier 

Basic (page $BE). En effet. GOSYS- 
TEM utilise une table predefinie en 
page globale, dans laquelle on lit ou 
ecrit les informations souhaitees; il ne 
reste plus qu'a charger le code ope- 
ration dans 1'accumulateur et a appe- 
ler GOSYSTEM. De plus, comme on 
vient de charger DATE pour 1' execu- 
tor, cette table contient, avant meme 
1' execution de la premiere instruction 
du programme, les informations 
concernant le programme DATE. 
Grande economie de moyens ! 



Le programme DATE 

II se decompose en trois blocs : 

• Lignes 31-45 : recuperation de la 
date comme explique ci-dessus; 
decomposition en jour, mois et 
annee, stockes aux adresses 9, 8, 
7 ainsi que dans les registres X, Y, 
A. 

• Lignes 48-109 : boucle principale; 

- 48-69 : affichage de la date en uti- 
lisant la routine L1NPRT, de l'inter- 
preteur Basic, qui affiche en decimal 
le nombre hexadecimal dont l'octet 
de poids fort est en A et l'octet de 
poids faible en Y (c'est la routine qui 
affiche les numeros de ligne Basic). 

- 70-109 : saisie d'une touche au 
clavier. Si "Pomme Pleine" est en- 
foncee, on modifie le mois, 1' incre- 
mentation ou la decrementation se 
faisant par les fleches droite et gau- 
che (pour la fleche droite, on a prevu 
l'affichage en 40 ou 80 colonnes : les 
codes utilises sont differents). Les ve- 
rifications de date sont tres simples : 
jour compris entre 1 et 31 quel que 
soit le mois. Attention au 31 fevrier ! 
On quitte la boucle par RETURN. 

- 112-132: assemblage des octets 
de DATE, stockage dans la date du 
Systeme et dans la table de parame- 
tres puis appel de GOSYSTEM pour 
ecrire ces informations dans la direc- 
tory. 

Remarque ; on ne donne pas le nom 
du fichier utilise ! En cas d'erreur, 
l'interpreteur Basic affiche le message 
correspondent. Si l'erreur MLI ne 
correspond a aucun message Basic, 
on recupere une I/O ERROR. 

Bibliographie : 

ProDOS Technical Reference Manual 
(APPLE) et Beneath Apple ProDOS 
de D.Worth et P.Lechner (Quality 
Software). 
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Votrc Epson en mode proportionnel 

Thierry Han 



Les imprimantes Epson sont sure- 
ment les plus vendues pour un sys- 
teme Apple II (aujourd'hui talonnees. 
je crois, par 1'Imagewriter). Mais, a 
part la plus performante (et chere !) 
FX-80, si je suis bien informe. au- 
cune Epson ne sait proportionner ses 
lettres. Si vous en possedez une. 
vous direz certainement : "elles font 
bien d'autres choses !". Certes. mais 
a present, vous n'aurez plus besoin 
de tenir une polemique avec votre 
voisin qui possede une imprimante 
proportionnelle pour savoir laquelle 
est la meilleure. Grace au pro- 
gramme que je vous propose ici. 
vous obtiendrez. moyennant une 
perte de 1.75K de memoire vive. un 
mode proportionnel sur votre Epson 
graphique. Parmi ces imprimantes fi- 
gurent tous les MX-type III. plus la 
RX-80 (que je possede). D'autres 
pourront eventuellement etre utili- 
sees. moyennant une modification 
des codes d' initialisation du mode 
graphique double densite. Si votre 
imprimante n'a pas de double den- 
site. on peut quand meme tourner la 
difficulty en modifiant. d'une part, les 
codes a imprimer. et. d'autre part, 
PROP.DEF pour les proportions 
"vertical horizontal" en tenant 
compte du nombre d'aiguilles de la 
tete. 

Grandes lignes de 
fonctionnement 

Une grande partie des 1792 octets 
occupes est prise par la definition des 
caracteres, sous une forme que j'ex- 
pliquerai plus loin. Un jeu de caracte- 
res "standards" est inclus. mais le 
programme PROP.DEF permet de 
modifier ces definitions, dont l'en- 
semble ne devra toutefois pas depas- 
ser ladresse $9500. soit environ 
1280 octets. Avec le jeu standard. 
252 octets restent libres. Cette defini- 
tion se scinde en deux parties : la 
partie index et la partie des codes a 
passer directement a l imprimante. 

Le programme lui-meme ne fait que 
291 octets, a partir de l'adresse 
$8F00. I! se compose d'une phase 
d'initialisation, de la routine utilisee 
par l'ampersand (&). la routine d' en- 
tree des caracteres a imprimer. et 
enfin la routine d'impression lors 
d'un retour chariot ou de saturation 
du buffer (sans retour chariot ni saut 
de ligne dans ce dernier cas). L'en- 
tree des caracteres pour impression 
proportionnelle peut se faire de deux 
facons : par &. ou par deviation du 
vecteur CSWL du DOS. La premiere 



possibility est offerte par defaut, et la 
seconde peut etre utilisee grace au 
petit module nomme PREPROP (re- 
logeable et prenant 59 octets), qui 
sauve les registres internes avant de 
sauter directement dans la routine 
d'ei.tree de PROP. Le mode opera- 
toire devient alors similaire a un 
PR#1 du DOS. 

Principe de codage 

Le codage des caracteres pour le 
module PROP est assez simple : il 
s'agit de codes a envoyer directe- 
ment a l imprimante. Le manuel de 
votre Epson donne des explications 
assez claires et je ne ferai done qu'un 
bref resume. 

La tete d'impression est composee 
de 9 aiguilles disposees verticale- 
ment. Le mode graphique consiste 
alors a imprimer un point a la posi- 
tion de chaque bit a 1. On associe 
ainsi les bits d un octet aux aiguilles 
de la tete. Comme un octet ne fait 
que huit bits, il est clair que I'une des 
aiguilles reste inactive : e'est la plus 
basse. On ne peut done avoir que 8 
points verticaux. Toutefois. en ayant 
recours a des sauts de lignes bien 
doses, on peut faire arriver la tete 
d'impression juste en-dessous de la 
ligne precedents, creant ainsi une 
continuity verticale et une matrice 
plus grande. Mais pour le moment, 
ce n est pas ce qui nous interesse. 
Prenons I'exemple de limpression du 
code $A5. 10100101 en binaire. 
Ceci nous donne sur papier : 

1 * (bit a 1 = un point) 


1 * 




1 * 



1 * 

Voila pour le format primaire des 
octets qui forment les codes des ca- 
racteres. Cependant. PROP utilise un 
systeme d'index pour trouver rapide- 
ment les codes du caractere desire. 
Cet index constitue la premiere partie 
des codes et occupe 192 octets. II 
contient les adresses des longueurs 
des codes (a partir du debut de l'in- 
dex. sur 2 octets) Voyons alors 
comment un caractere est code : 
chaque groupe de codes a envoyer a 
l imprimante est precede d un octet 
indiquant la longueur des codes, qui 
arrivent ensuite dans l'ordre de sor- 
tie. Tout cela . bien range, represente 
993 octets pour le jeu de caracteres 
standard, index compris. 



Utilisation 

Pour mettre en route PROP, il suffit 
de faire un BRUN ou un CALL 
36608 apres BLOAD. L instruction & 
est initialised. Pour utiliser PRE- 
PROP, il suffit de faire un autre 
BRUN ou CALL 768 apres le char- 
gement de PROP et de PREPROP. 
Un CALL 802 (ou CALL "adresse 
de chargement" + 34) deconnectera 
PROP. Pour PREPROP qui agit 
comme un PR#1. il suffit de faire un 
PRINT de ce que Ton veut imprimer. 
Pour &, il faut assigner une chaine 
puis faire : 

& chaine$ ou & chaine$; 

selon que I on veut ou non effectuer 

un saut de ligne. 

Par ailleurs, un & seul fera imprimer 
tout ce que I on avait fait entrer dans 
le buffer (avec & chaine$:). S'il n'y a 
rien. seul un saut de ligne sera effec- 
tue. Notez que si chaine$ contient un 
retour chariot (Ascii 13). l impression. 
puis le saut de ligne seront effectues. 
meme si un point-virgule est utilise. 
Les caracteres suivant le retour cha- 
riot seront traites normalement. 

Note importante : ne faites surtout 
pas FP seul avec PROP en memoire. 
Ce FP remet en place la HIMEM et 
les variables alphanumeriques vien- 
dront ecraser PROP apres un net- 
toyage de la memoire. Faites done 
un NEW au lieu de FP. ou faites sui- 
vre le FP par un HIMEM:36608. 

Definition des caracteres 

Si vous aimez le jeu de caracteres 
standard fourni, il n'y a aucun besoin 
d'utiliser PROP.DEF. programme 
Basic de definition des caracteres. 

Dans le cas contraire. PROP.DEF 
vous demandera d'abord le nom du 
fichier de caracteres a editer (vous 
pouvez en effet sauvegarder diffe- 
rents jeux de caracteres sous des 
noms differents). Un RETURN a vide 
indique au programme de travailler 
sur le fichier actuellemen. en me- 
moire, ce qui suppose bien sur que 
celui-ci s'y trouve effectivement. II 
faut obligatoirement travailler a partir 
d'un jeu existant. done a partir du 
jeu standard pour la toute premiere 
edition. 

Vous devrez ensuite preciser s'il s'agit 
d un Module (routines d'impression 
plus codes) ou simplement d un fi- 
chier Codes. Dans ce dernier cas. 
vous ne pourrez pas essayer directe- 
ment les caracteres crees mais les 
principes de definition restent les 
memes (voir plus loin la methode de 
fusion entre les routines et les codes) 
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Lorsque les donnees d' identification 
du fichier sont fournies. le pro- 
gramme decode le jeu de caracteres 
en memoire. puis apparaissent une 
grille HGR et 4 lignes de commande. 
Pour editer un caractere sur la grille, 
il suffit de taper ce caractere. Quel- 
ques touches de fonction sont pre- 
vues pour pallier l'absence de cer- 
tains caracteres sur le clavier de 
1' Apple 11+ : 

• CTRL-B permet de basculer entre 
les majuscules (M1 = dans les 
lignes de commandes) et les mi- 
nuscules (Ml = l) 

• CTRL- 1 correspond au caractere 
"trait soulignant" (Ascii 95) en 
majuscule 

• CTRL-0 correspond au caractere 
"[" en minuscule 

• CTRL-P correspond au caractere 
"slash inverse" en minuscule 

Une fois entree, la lettre s'affiche en 
gros points sur l'ecran. Pour position- 
ner le "curseur", vous devez indiquer 
la position horizontale (1 chiffre de 
a 9) puis la position verticale (un 
chiffre de 1 a 8). Ensuite. la frappe 
de la touche "0" change letat du 
point a l'endroit du curseur : il I'al- 
lume s'il etait eteint et inversement. 
A ce stade. toute autre touche que 
laisse le point inchange. 
En ce qui concerne la position hori- 
zontale. il n est pas possible d'attein- 
dre tous les points d'une ligne au 
moyen des seuls chiffres a 9. Si 
vous voulez modifier un point situe 
dans une position intermediate, pla- 
cez tout d'abord le curseur sur le 
point situe a gauche de votre objectif 
et laissez-le inchange. Tapez ensuite 
la "fleche a droite" en reponse a la 
demande de position horizontale et 
cela vous amenera a l'endroit voulu. 
Par exemple. le troisieme point d une 
ligne n'est pas accessible directement 
(le deuxieme correspond a la posi- 
tion horizontale 1 et le quatrieme a la 
position 2); placez vous alors sur la 
position 1 et la "fleche a droite" vous 
placera ensuite sur le troisieme point. 

Si vous possedez un joystick ou deux 
paddles, vous pouvez remplacer les 
lignes 4000 a 4050 du programme 
PROP.DEF par les lignes listees plus 
loin sous le nom "Version Paddles". 
Dans ce cas. le deplacement est 



donne par les poignees et l'un des 
boutons permet de modifier l'etat 
d'un point a l'endroit du "curseur". 

Les lettres sont affichees en matrices 
de points, qui reproduisent a l'ecran 
tres fidelement ce qui sera imprime 
sur papier. Pour les techniciens des 
Epson, je precise que I'impression se 
fait en double densite. mais pas en 
vitesse double, ce qui confere a ces 
caracteres proporrionnels une qualite 
d'impression superieure. Bref. vous 
dessinez sur l'ecran ce que vous vou- 
driez voir sur papier et vous pouvez 
valider votre creation par RETURN. 
Sinon, vous pouvez recommencer en 
appuyant sur ESC. 

Si vous appuyez sur ESC lors de la 
demande du caractere a editer. et si 
vous avez un module en memoire (et 
non seulement un fichier codes) vous 
aurez droit a une impression de tous 
les caracteres disponibles (Ascii 32 a 
127). Par ailleurs. un RETURN au 
meme niveau provoque le codage 
des donnees stockees dans les ta- 
bleaux du Basic en une forme qui 
sera POKee directement dans la 
table qu'utilise PROP. Si vous ne 
voulez toutefois pas enregistrer sur 
disquette. entrez un RETURN a vide 
a la demande du nom de sauve- 
garde. Ce codage est necessaire pour 
pouvoir essayer le nouveau jeu edite. 
Si vous voulez stocker ce nouveau 
jeu sur disquette. il suffit d'entrer un 
nom. de preference different de tous 
ceux qui sont presents sur la dis- 
quette. Apres cela. vous pouvez ter- 
miner avec ESC. ou continuer avec 
n'importe quelle autre touche. Notez 
qua la sauvegarde. tout le module 
sera ou non enregistre en meme 
temps que les codes selon que vous 
aurez indique M)odules ou Qodes 
au debut de I' edition. 
Si vous appuyez sur CTRL-S (sauve- 
garde) et non RETURN en lieu et 
place d un caractere a editer. le pro- 
gramme agira cotnme s'il avait de- 
passe le stade de codage et deman- 
dera directement le nom du fichier a 
sauvegarder. Les changements effec- 
tues apres le dernier codage seront 
ignores, bien que presents dans les 
tableaux du Basic. 

Une derniere remarque : apres l'ap- 
pui du RETURN qui valide un carac- 



tere. une fourchette s'affiche sur 
l'ecran : elle indique les deux "limi- 
tes" du caractere. a partir desquelles 
on ne trouve rien. Ce calcul est auto- 
matique. Si vous voulez inclure quel- 
ques espaces de plus que ces limites. 
appuyez sur CTRL-L (pour "Limi- 
tes") au lieu de RETURN, et le pro- 
gramme vous demandera la colonne 
de depart et celle d'arrivee (1 a 16 
inclus). Si le caractere que vous edi- 
tez degenere en "rien du tout", le 
programme vous demandera la lar- 
geur de I'espace pour ce caractere. 
Les deux cas standards. I'espace et le 
code Ascii 127 (Del), prennent trois 
espaces. 

Les differents program- 
mes 

Le module PROP se nomme 
PROP. OBJ sur la disquette. et 
contient les codes standards. 
Par contre. PROP. PROG ne les 
contient pas : e'est le programme 
objet directement assemble a partir 
de PROP.SCE. programme source 
(Dos Tool Kit). 

Les codes (index + codes) sont re- 
produits dans le fichier CODES, qui 
doit etre charge juste apres la parrie 
programme, soit a l'adresse $9023. 
Cette disposition a ete adoptee pour 
ne pas devoir garder de longs codes 
dans le programme source. 
PROP. EXEC, fichier EXECutable. fait 
le necessaire pour souder la parrie 
programme et la partie codes afin de 
creer un fichier PROP.OBJ2. qui sera 
genere a partir des fichiers 
PROP. PROG (assemblage de 
PROP.SCE) et CODES (reloge). 

PREPROP.SCE et PREPROP.OBJ 
sont les programmes source et objet 
de PREPROP. 

PROP.DEF est le programme Apple- 
soft qui edite les jeux de caracteres 
pour PROP. Enfin. S.SHP contient la 
shape du point utilise par 
PROP.DEF. 

A propos du Dos Tool Kit. si vous 
avez une Carte Langage. editez vos 
programmes avec le disque virtuel de 
Michel Haag (Pom's 12); cela acce- 
lere beaucoup les lectures/ecritures 
et. surtout, 1' assemblage se fait tres 
rapidement. 



]LI ST: PROP.DEF 

10 HI MEM : 36608: LOMEM: 16510 
20 GOTO 90 
990 REM CADRE 

1000 HOME : HGR : HC0L0R= 3: POKE 34,20: 
VTAB 21 

1010 FOR I = TO 15: HPL0T H + I • H,0: 

HPLOT H+I*H,V#8*-2: NEXT 
1020 FOR I = TO 8: HPLOT Hl,l + I * V 

TO H « 16 ♦ H1,I * y + 1: NEXT 
1030 FOR I = H TO H » 16 STEP H » 5: HPL 



1040 
1050 



1060 



10 70 



1080 



OT 1,131 TO I , 140 : NEXT 
REM ENTREE, CONVERT I ON CONTROLS 
HOME : VTAB 21: PRINT "RETURN POUR 

ENREGISTRER," : PRINT "ESCAPE POUR 

ESSAYER.": PRINT "CARACTERE <MI="M 

I " ) : " ; : GET R* 
IF R* = CHR* < 15) THEN R* = CHR* 

(91): GOTO 1140 
IF R* = CHR* (16) THEN R* = CHR* 

<92) : GOTO 1 140 
IF R* = CHR* (9) THEN R* = CHR* ( 

95) : GOTO 1 140 



A 

18 



I 

Pom's n" 16 



1085 
1090 

1 1 00 
1110 

1120 
1130 
1 140 



IF R* = 
IF R* = 
PRINT 
IF R* = 
IF R* = 
N 7000 
IF R* = 
IF R* < 
INVERSE 



CHR* ( 12) THEN 5000 
CHR* <2) THEN MI = 1 - MI : 
: GOTO 1050 
CHR* (13) THEN 6000 
CHR* (27) AND T* = "M" THE 



CHR* (19) THEN 6060 
" " THEN PRINT : GOTO 1050 
: IF MI = 1 AND ASC <R*) > 
= 64 THEN RM* = R* : R* = CHR* ( 
ASC (RM*) + 32): PRINT "MIN "RM*;: 



1 150 
1 155 

1160 

1990 

2000 
2010 
2020 



2030 
2040 
20 50 

2990 
3000 
3010 

3020 
3990 
4000 



ASCI I 

PRINT 
PRINT 1 



ASC 

MA J " ; 

ASC 



NORMAL : PRINT " 
<R*) : GOTO 1 160 
IF R* > = "3" THEN 
PRINT R*; : NORMAL : 
II " ASC (R*) 
R = ASC (R*) - 32: IF R > 127 THEN 
R = R - 128 
REM DECODAGE A PART I R DE LA MEMOIR 
E 

FOR C = 1 TO DX.(R) 
CX = PX(R,C) 
FOR I = 7 TO STEP - It IF CX > 
= 2"I THEN CX = CX - 2 * I:GX(C, 
7 - I) = 1 : GOTO 2040 
G7.(C,7 - I) = 
NEXT I,C 

FOR I = C TO 17: FOR J = TO 7:GX( 

I ,J) = 0: NEXT J, I 
REM DESSIN 

FOR I = 1 TO DX(R): FOR J = TO 
IF GX(I ,J> = 1 THEN 

H,J » K> + VI 
NEXT J, I 
REM EDITION 
VTAB 24: HTAB 1 

OU -> " ; : IF 

28 THEN 4000 



DRAW 1 AT I 



7 
* 



PRINT "PH : 0A< 
PEEK ( - 16384) < 



4010 K = PEEK 



- le3Q4): POKE - 16368. 



4030 

4031 
40 32 

40 34 
4040 

4041 



4042 



4043 

4050 
4060 
40 70 



4071 



4080 
4090 



4100 



0:KZ = K - 128: IF ( K2 > 47 AND KZ 
< 58) OR KZ = 21 THEN 4032 
IF K > 139 THEN ON K - 1 39 GOTO 50 

00,5020: ON K = 155 GOTO 1000 
GOTO 4000 

IF KZ = 21 AND KX < 9 THEN CX = ZX 

+ INT (H / 8) : GOTO 4041 
IF KZ = 21 THEN 4000 
KZ = KZ - 48.-KX = KZ:CX = INT <KZ » 
255 / 153) + 1 :ZX = CX 
VTAB 24: HTAB 1: PRINT " PV : 1 A 8 
" ; : IF PEEK ( - 16384) < 
128 THEN 4041 
KZ = PEEK < - 16384) - 128: POKE - 
16368,0: IF KZ < 49 OR KZ > 56 TH 
EN 4041 

KZ = KZ - 48.-CY = INT ( KZ * 255 / 2 
88) 

XDRAW 1 AT CX * 
XDRAW 1 AT CX * 
VTAB 24: HTAB 1 
POINT 
384) < 



H,CY * V + VI 
H,CY # V + «J1 



CHANGE LE 
PEEK ( - 16 



PRINT 
" ; : IF 
128 THEN 4070 
K = PEEK ( - 16384): POKE - 16368. 
0:KZ = K - 128: IF KZ < > 48 THEN 
4000 

FOR M = TO 100 : NEXT 
IF GX(CX,CY) = THEN GX(CX,CY) = 1 
.: DRAW 1 AT CX * H , CY * V + VI: GO 
TO 4120 

GX(CX.CY) = 0: XDRAU) 1 AT CX » H , CY 
» V + V 1 : IF CX > I THEN IF GX(CX 

- 1,CY) = 1 THEN DRAW 1 AT CX * 
H - H.CY » V + VI 



4110 IF CX < 16 THEN IF GX(CX + 1,CY) 



DRAW 1 AT CX ♦ H •*■ H , CY » 



I ";D: 
L + 1 
16 OR 



INPUT 
* 



C 

(L < 1 
< D TH 



1 THEN 
V + VI 
4120 GOTO 4000 
4990 REM CTRL-L 
50 00 INPUT "COLONNE DEBUT 
OLONNE FIN: " ;L:L = 
6) : IF D < 1 OR L > 
EN 5000 
5005 GOTO 5060 
5010 REM LECTURE ECRAN 

5020 FOR C = 1 TO 16: FOR I = TO 7 : I F 
GX(C,I) = THEN NEXT I,C: INPUT 
"LONGUEUR DES ESPACES: ";L:D = 1: 
GOTO 5070 

5030 I = 9: NEXT I:D = C: FOR C = 1 6 TO D 
STEP - 1 :L = 0: FOR I = TO 7: 
IF GX(C,I) = THEN NEXT I,C: GOT 

5050 

50 40 I = 9: NEXT I 
5050 L = C 

5060 HPLOT D » H , 1 50 TO D * H , 1 59 TO L * 

H.159 TO L * H.150 
50 70 FOR I 1 = D TO L: I = I 1 - D + 1 :PX(R 

, I ) = 
5080 FOR J = TO 7 

5090 IF GX(I1,7 - J) = 1 THEN PX(R,I) = 

PX(R,I) + 2 • J 
5100 NEXT J, II :DX(R) - I 
5110 GOTO 1000 

5990 REM CODAGE POUR MODULE PROP 

6000 TA = IN + 192: FOR R = TO 95:R1 = 

R * 2:TX = TA - IN 
6010 Tl = INT (TX / 256): POKE IN + Rl ,T 

X - Tl * 256: POKE 12 + Rl ,T1 
60 20 POKE TA,DX(R) 
6030 FOR I = 1 TO DX.(R) 
6040 POKE TA + I,PX(R,I): NEXT 
60 50 TA = TA + I : NEXT 

6060 PRINT : INPUT "NOM DU FICHIER A ENR 
EGISTRER: " jF*: IF F* = "" THEN 61 
00 

6070 R* = "C": IF T* = "M" THEN PRINT "C 
)ODES OU M) ODULE? ";: GET R* : PR 
INT R* 

6080 IF R* = "C" THEN PRINT D*"BSAVE"F* 

" ,A" IN" ,L"TA - IN: GOTO 6100 
6090 PRINT D*"BSAVE"F*" ,A*8F00,L"TA - IN 

+ IN - 36608 
6100 PRINT "PRESSEZ UNE TOUCHE.(ESC POUR 
FINIR)";: GET R* : I F R* < > CHR 
* (27) THEN 1000 
END 

REM ESC: ESSAI SUR IMPRIMANTE 
HOME : PRINT "ESSAI: ALLUMEZ L' IMPR 
IMANTE.": GET R* 
R* = " " : FOR I = 32 TO 1 27 : R* = R* + 
CHR* ( I ) : NEXT 
& R* : GOTO 1000 
REM INITIALISATION 

TEXT : HOME : DIM PX( 95 , 1 7) , DX( 95) , 
GX( 17,7) :D* = CHR* (4) 
H = 9:V = 16:V1 = INT (V / 2) + 1:H 

1 = INT (H / 2) + 1: REM DONNEES 
POUR LES PROPORTIONS H/U A L'ECRA 

N 

POKE 2*32.0: POKE 233,64: ROT= 0: SC 
ALE= 1 

IF PEEK (16384) = 1 AND PEEK (163 
35) = AND PEEK (16386) = 4 AND 

PEEK (16387) = AND PEEK (16388 
) = 44 THEN 9040: REM TEST SI SHA 
PE PRESENT 



61 10 
6990 
7000 

7010 

70 20 
8990 
9000 

9005 



9010 
90 20 
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9030 PRINT D*"BLOADS.SHP,A*4000" 

9040 INPUT "NOM DE FICHIER A EDITER: " ; F 

*: PRINT "M) ODULE OU OODES? " ; : 
GET T*: PRINT T* 
9050 IF F* = "" THEN PRINT "EN MEMO I RE . 

" : GOTO 9070 
9060 PRINT D*" BLOAD" F* 

9070 PRINT " DECODAGE : " : IF T* = "M" THEN 

CALL 36408 
9080 REM DECODAGE A PARTI R DES CODES 
9090 IF T* = "C" THEN IN = PEEK <43634) 

+ PEEK < 43635) * 256: GOTO 9110 
9100 IN ■ PEEK (36611) + PEEK (36612) * 

256 

9110 TA = IN + 192:12 = IN + 1 
9120 FOR R = TO 95 
9130 DX<R) = PEEK (TA) 

9140 FOR I = 1 TO DV.IR) :P7.(R, I ) = PEEK 
(TA + I ) : NEXT 



9150 TA = TA + I: PRINT CHR* (R + 32);: 
NEXT 

9160 D* = CHR* (4): GOTO 1000: REM D* E 
FFACE PAR CALL 36608 



Version Joystick 

1LIST 4000,4050 

4000 CX = INT ( PDL (0) / 17) + 1 
4010 IF PEEK ( - 16384) < 128 THEN 4040 
4020 K = PEEK ( - 16384): POKE - 16368, 


4030 IF K > 139 THEN ON K - 1 39 GOTO 50 

00,5020: ON K = 155 GOTO 1000 
4040 CY = INT ( PDL (1) / 32) 

4050 XDRAW 1 AT CX * H , CY » V + VI » 



PROP.OBJ 



*8F00 .9404 



8F00- 


4C 


05 


8F 


23 


90 


A9 


4C 


8D 


8F08- 


F5 


03 


A9 


26 


3D 


F6 


03 


A9 


8F1 0- 


8F 


8D 


F7 


03 


A9 


00 


85 


73 


8F18- 


85 


6F 


A9 


8F 


85 


74 


85 


70 


8F20- 


20 


B5 


8F 


4C 


F3 


8F 


20 


B7 


8F28- 


00 


F0 


35 


20 


E3 


DF 


20 


6C 


8F30- 


DD 


85 


85 


84 


86 


AO 


00 


Bl 


8F38- 


85 


35 


1C 


C8 


Bl 


85 


85 


ID 


8F40- 


C3 


Bl 


85 


85 


IE 


AO 


00 


Bl 


8F48- 


ID 


34 


IB 


20 


66 


8F 


A4 


IB 


8F50- 


C8 


C4 


1C 


DO 


F2 


20 


B7 


00 


8F58- 


C9 


3B 


DO 


04 


20 


Bl 


00 


60 


8F60- 


A9 


0D 


20 


66 


8F 


60 


A6 


06 


8F68- 


29 


7F 


C9 


OD 


FO 


3D 


38 


E9 


8F70- 


20 


90 


F2 


OA 


9D 


00 


95 


E3 


8F78- 


86 


06 


20 


01 


90 


AO 


00 


Bl 


8F80- 


08 


18 


69 


02 


85 


FB 


65 


19 


8F38- 


85 


19 


90 


02 


E6 


1A 


A5 


FB 


8F90- 


13 


65 


FC 


35 


FC 


90 


02 


E6 


8F98- 


FD 


A5 


FD 


C9 


03 


DO 


C6 


A5 


8FA0- 


FC 


C9 


BO 


BO 


06 


A6 


06 


DO 


8FA3- 


BC 


F0 


1 1 


EO 


00 


FO 


64 


20 


8FB0- 


BC 


3F 


20 


13 


90 


A2 


00 


36 


SF68- 


FC 


36 


FD 


60 


A9 


IB 


20 


1A 


8FC0- 


90 


A9 


4C 


20 


1A 


90 


A5 


19 


8FC3- 


20 


1A 


90 


A5 


1A 


20 


1A 


90 


3FD0- 


A2 


00 


BD 


00 


95 


20 


01 


90 


8FD8- 


A9 


00 


20 


1A 


90 


20 


1A 


90 


3FE0- 


A3 


Bl 


03 


A3 


C3 


84 


07 


AO 


8FE8- 


01 


Bl 


08 


20 


1A 


90 


C3 


C4 


8FF0- 


07 


DO 


F6 


E3 


E4 


6 


DO 


DA 


SFF8- 


A2 


00 


86 


06 


36 


19 


86 


1A 


9000- 


60 


A8 


B9 


23 


90 


13 


69 


23 


9008- 


85 


08 


CS 


B9 


23 


90 


69 


90 


9010- 


85 


09 


60 


A9 


OD 


20 


1A 


90 


9018- 


A9 


OA 


2C 


CI 


CI 


30 


FB 


3D 


9020- 


90 


CO 


60 


CO 


00 


C4 


00 


C9 


9028- 


00 


CE 


00 


D3 


00 


EO 


00 


E3 


9030- 


00 


FO 


00 


F3 


00 


F7 


00 


FB 



9038- 00 03 01 OB 01 OE 01 16 

9040-01 19 01 22 01 2A 1 30 

9048- 01 38 01 40 01 48 01 50 

9050- 01 58 01 60 01 68 01 70 

9058- 01 73 01 76 01 7B 01 83 

9060- 01 88 01 90 01 9A 01 A8 

9063- 01 B2 01 BC 01 C6 01 DO 

9070- 01 DA 01 E4 01 FO 01 F6 

9073- 01 FF 01 OB 02 15 02 23 

9080- 02 2F 02 3B 02 45 02 51 

9083- 02 5B 02 65 02 71 02 7B 

9090- 02 89 02 97 02 A4 02 BO 

9098- 02 BA 02 BF 02 C8 02 CD 

90A0- 02 D3 02 DD 02 EO 02 EA 

90A8- 02 F4 02 FC 02 06 03 OF 

90B0- 03 16 03 IF 03 29 03 2F 

90B3- 03 35 03 3D 03 43 03 51 

90C0- 03 5A 03 62 03 6B 03 74 

90C3- 03 7C 03 84 03 3C 03 96 

90D0- 03 AO 03 AE 03 B8 03 C2 

90D3- 03 CA 03 CF 03 Dl 03 D6 

90 EO- 03 DD 03 03 00 00 00 04 

90E3- 60 FA FA 60 04 EO 00 00 

90F0- EO 09 2A 2C 38 68 AA 2C 

90F3- 38 63 AS 07 20 52 52 FF 

9100- 4A 4A 04 07 C2 C4 03 10 

9103- 20 46 36 07 44 AA 92 AA 

9110- 44 OA 10 02 20 CO 03 3C 

9113- 42 81 03 81 42 3C 07 08 

9120- 2A 1C 03 1C 2A 08 07 03 

9123- 08 08 3E 08 08 08 02 05 

9130- 06 07 08 08 08 08 03 OS 

9138- 08 02 02 02 08 01 02 04 

9140- 08 10 20 40 80 07 38 44 

9143- 82 82 82 44 38 05 22 42 

9150- FE 02 02 07 46 8A 92 92 

9153- 92 92 62 07 44 32 32 92 

9160- 92 92 6C 07 03 IS 23 48 

9163- 38 FE 03 07 E4 A2 A2 A2 

9170- A2 A2 9C 07 OC 12 32 52 

9178- 92 12 OC 07 80 82 34 38 

9180- 90 AO CO 07 6C 92 92 92 

9133- 92 92 6C 07 60 90 92 94 
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91 90- 


98 


90 


60 


02 


14 


1 4 


02 


15 


91 98- 


1 6 


04 


10 


28 


44 


32 


07 


14 


91 AO- 


1 4 


1 4 


1 4 


1 4 


14 


14 


04 


82 


91 A8- 


44 


23 


1 


07 


40 


80 


30 


8A 


91 BO- 


90 


AO 


40 


09 


38 


44 


32 


92 


91 B8- 


AA 


AA 


BA 


3A 


72 


OD 


02 


06 


91 CO- 


OA 


1 8 


A3 


C8 


33 


43 


23 


18 


91 C3- 


OA 


06 


02 


09 


82 


FE 


92 


92 


91 DO- 


92 


92 


92 


92 


6C 


09 


33 


44 


91 D8- 


32 


32 


32 


32 


32 


32 


C4 


09 


91 EO- 


82 


FE 


32 


82 


32 


82 


32 


42 


91 E3- 


3C 


09 


32 


FE 


92 


92 


92 


BA 


91 FO- 


32 


82 


C6 


09 


32 


FE 


92 


92 


91 F8- 


90 


B8 


80 


30 


CO 


09 


38 


44 


9200- 


32 


32 


32 


82 


92 


92 


DE 


OB 


9208- 


32 


FE 


92 


10 


10 


10 


10 


10 


921 0- 


92 


FE 


32 


05 


32 


32 


FE 


32 


921 3- 


32 


03 


04 


02 


02 


32 


32 


82 


9220- 


FC 


30 


OB 


82 


FE 


92 


10 


23 


9228- 


28 


44 


44 


82 


82 


82 


09 


82 


9230 - 


FE 


32 


02 


02 


02 


02 


02 


06 


9238- 


OD 


82 


FE 


82 


40 


20 


1 


OS 


9240- 


1 


20 


40 


82 


FE 


82 


OB 


32 


9248- 


FE 


32 


40 


20 


10 


08 


04 


82 


9250- 


FE 


32 


OB 


38 


44 


32 


82 


32 


9258- 


82 


32 


32 


82 


44 


38 


09 


32 


9260- 


FE 


92 


90 


90 


90 


90 


90 


60 


9263- 


OB 


38 


44 


32 


82 


82 


32 


82 


9270- 


8A 


3A 


44 


3A 


09 


82 


FE 


92 


9278- 


90 


90 


98 


94 


92 


62 


09 


66 


9230- 


92 


92 


92 


92 


92 


92 


92 


CC 


9288- 


OB 


CO 


80 


30 


30 


82 


FE 


82 


9290- 


80 


80 


80 


CO 


09 


30 


FC 


32 


9298- 


02 


02 


02 


82 


FC 


80 


OD 


80 


92A0- 


CO 


AO 


1 


03 


04 


02 


04 


08 


92A8- 


1 


AO 


CO 


30 


OD 


80 


CO 


BO 


92B0- 


OC 


02 


OC 


30 


OC 


02 


OC 


BO 


92B3- 


CO 


30 


OC 


82 


C6 


C6 


23 


23 


92C0- 


1 


1 


23 


28 


C6 


C6 


32 


OB 


92C3- 


80 


CO 


CO 


20 


22 


IE 


22 


20 


92D0- 


CO 


CO 


30 


09 


C2 


36 


36 


SA 


92D3- 


92 


A2 


C2 


C2 


36 


04 


FE 


32 


92E0- 


32 


32 


08 


80 


40 


20 


10 


03 


92E3- 


04 


02 


01 


04 


32 


32 


82 


FE 


92F0- 


05 


40 


30 


80 


30 


40 


09 


01 


92F3- 


01 


01 


01 


01 


01 


01 


01 


01 



PROP. EXEC 

BLOADPROP.PROG 

AD=PEEK<3661 1 ) +PEEK< 3661 2) *256 
PR I NT " BLOADCODES , A " AD (Rem : il 

TRL-D devant BLDAD) 
BSAUEPROP . 0BJ2 , A*3F00 , LS600 



9300- 

9308- 

9310- 

931 8- 

9320- 

9328- 

9330- 

9338- 

9340- 

9343- 

9350- 

9358- 

9360- 

9363- 

9370- 

9373- 

9330- 

9333- 

9390- 

9393- 

93A0- 

93A8- 

93B0- 

93B8- 

93C0- 

93C3- 

93D0- 

93D3- 

93E0- 

93E8- 

93F0- 

93F3- 

9400- 



02 CO 
2A 2A 
22 22 
1C 22 
1C 22 
02 03 
2A 18 
40 03 
IE 20 
20 22 
02 02 
7 32 
05 32 
IE 22 
20 22 
20 20 
22 22 
25 24 
24 24 
22 IE 
12 2A 
20 FC 
20 3C 
22 9 
28 30 
02 04 
20 09 
14 22 
04 03 



20 09 
2A 1C 
22 22 
22 22 
22 22 
1C 2A 
06 12 
18 24 
09 82 
IE 02 
05 02 
FE OA 
82 FE 
20 20 
IE 02 
22 IE 
22 22 
24 24 
24 24 
22 20 
2A 2A 
22 22 
22 02 
20 30 
20 OD 
03 04 
22 22 
22 09 
30 20 



26 2A 32 32 



32 32 
10 06 
03 00 



01 FF 

40 80 
00 00 



04 OA 
02 09 
22 22 
22 22 
22 22 
2A 2A 
7E 92 
25 25 
FE 12 

05 22 

01 21 
14 14 

02 02 
22 IE 

03 22 
02 07 
1C 03 

24 18 

25 IF 
20 20 
2A 2A 
22 22 
02 02 
28 04 
20 30 
02 04 
14 14 
20 21 
20 07 
22 04 

04 82 
30 40 
00 



2A 2A 
82 FC 
1C 07 
12 09 
A2 FC 
2A 2A 
92 92 
25 25 

20 20 
22 BE 

21 BE 

22 22 
OD 22 
22 20 
IE 22 
1C 22 
21 IF 
08 18 

21 07 
10 07 
24 07 
04 09 

22 3C 

02 04 

23 04 
28 30 

03 14 
31 OA 
22 26 
10 6C 
82 6C 
40 80 



PREPROP.OBJ 



*300 .33A 



y a 



S.SHP 

*400 .40 77 

4000- 01 00 04 00 2C 36 3F 24 
40 08- 2C 2D 36 36 3F 3F 24 24 



0300- 


AD 53 


AA 


85 


FE 


AD 


54 


AA 






0303- 


35 FF 


20 


58 


FF 


BA 


CA 


BD 






0310- 


00 01 


18 


69 


21 


8D 


53 


AA 






0313- 


E3 BD 


00 


01 


69 


00 


3D 


54 






0320- 


AA 60 


A5 


FE 


8D 


53 


AA 


A5 






0328- 


FF 3D 


54 


AA 


60 


20 


4A 


FF 






0330- 


A5 45 


20 


66 


3F 


20 


3F 


FF 






0338- 


6C FE 


00 


















4010- 


2C 


2D 


2D 


36 


36 


36 


3F 


3F 




4018- 


3F 


24 


24 


24 


2C 


2D 


2D 


2D 




4020- 


36 


36 


36 


36 


3F 


3F 


3F 


3F 




4028- 


24 


24 


24 


24 


2C 


2D 


2D 


2D 


un C 


40 30- 


2D 


36 


36 


36 


36 


36 


3F 


3F 




4033- 


3F 


3F 


3F 


24 


24 


24 


24 


24 




4040- 


OC 


2D 


2D 


2D 


2D 


2D 


32 


36 




40 43- 


36 


36 


36 


36 


3B 


3F 


3F 


3F 




4050- 


3F 


3F 


20 


24 


24 


24 


24 


24 




4058- 


03 


29 


2D 


2D 


2D 


2D 


09 


12 




4060- 




36 


36 


36 


36 


1 2 


IB 


3B 




4063- 


3F 


3F 


3F 


3F 


IB 


58 


58 


20 




4070- 


24 


24 


24 


24 


03 


21 


00 


13 



PROP.SCE 

SOURCE FILE: PROP.SCE 

NEXT OBJECT FILE NAME IS PROP . SCE . 

BJO 



Qpnn • 

O r U U ■ 






1 




ORG 


♦ 8F00 


Qcnn . 
orUU • 






2 


»»»»***»**»**»»*»***** 




##»»»**««* 








or uu i 






3 


♦IMPRIMANTE PROPORTION 




NELLE 










or uu i 






4 


•EPS0N- 


>PR0P0RTI0NNEL 


qpnn ■ 






5 


»PAR :THI ERRY 


HAN 


ocnn - 

OrUU ■ 






6 


•DATE: 3/5/1984 


or uu i 






7 


♦SYNTAXE : &CHA I NE* ( ; ) 


OrUU • 






8 


»»»**»»*»**»****»***** 




»»*****«*« 








or u u • 






9 


;D0S TOOL KIT 


or u u ■ 






10 


; 






on fl A • 






1 1 


XREG 


EQU 


♦6 


UUU' * 






12 


YREG 


EQU 


♦7 


U U U O ■ 






13 


INP 


EQU 


*8 


0019: 






14 


TOTAL 


EQU 


• 19 






: LONGUEUR JUSQU'A 


IMPRESSION 


n n i p . 

UUlDi 






15 


SAVE 


EQU 


• IB 


001C: 






16 


LEN 


EQU 


♦ 1C 


001D: 






17 


ADR 


EQU 


♦ ID 


UUrD ! 






18 


AREG 


EQU 


*FB 


finer- 






19 


T0T1 


EQU 


*FC 






: LONGUEUR JUSQU'A 


CR 




9500 : 






20 


BUFFER 


EQU 


♦ 9500 


8F00 : 






21 


; 






uuor i 






22 


STREND 


EQU 


*6F 


nn7Q i 

UU / J. 






23 


HI MEM 


EQU 


*73 


nn r t ■ 






24 


CHRGET 


EQU 


•Bl 


n n R"7 - 

U U D f > 






25 


CHRGOT 


EQU 


*B7 


0085: 






26 


LAST 


EQU 


*S5 


03F5: 






27 


AMPVEC 


EQU 


*3F5 






jVECTEUR & 








ClCl : 






28 


BUSY 


EQU 


♦ ClCl 






;P0UR 


L' IMPRIMANTE 




C090 : 




29 


DATA 


EQU 


*C090 


DD6C: 






30 


CHKSTR 


EQU 


*DD6C 


DFE3: 






31 


PTRGET 


EQU 


*DFE3 


8F00 :4C 


05 8F 


32 




JMP 


DEBUT 


8F03: 






33 


: 






8F03:23 


90 


34 




DW 


INDEX 






;P0UR 


PROP.DEF ET 


PROP. EXEC 


8F05: 




35 


> 






8F05: 






36 


; INITIALISATION 


8F05: 






37 








8F05: 


A9 


4C 


38 


DEBUT 


LDA 


«*4C 






i JMP 










8F07: 


8D 


F5 03 


39 




STA 


AMPVEC 


8F0A: 


A9 


26 


40 




LDA 


»> START 


3F0C:3D 


F6 03 


41 




STA 


AMPVEC+ 1 


8F0F:A9 


8F 


42 




LDA 


*< START 


8F1 1 :8D 


F7 03 


43 




STA 


AMPVEC+2 


3F14:A9 


05 


44 




LDA 


»>DEBUT 


8F16: 


85 


73 


45 




STA 


HI MEM 


3F18: 


35 


6F 


46 




STA 


STREND 


8F1A:A9 


8F 


47 




LDA 


*< DEBUT 


8F1C: 


85 


74 


48 




STA 


HIMEM+1 


8F1E: 


85 


70 


49 




STA 


STREND+ 1 


8F20 :20 


B5 8F 


50 




JSR 


RAZT0T 


8F23:4C 


F8 8F 


51 




JMP 


INIT 


8F26: 






52 








8F26: 






53 


; DEBUT 


DE & 




8F26: 






54 


; 




CHRGOT 


8F26:20 


B7 00 


55 


START 


JSR 



or oo ■ cr n 

8F2° : F0 


35 


56 


BEQ 


PPT 




:RI EN: IMPRESSION 






or on , on 
or ^B : -;U 


E3 DF 


57 


JSR 


PTRGET 




:TR0UVE LE DESCRI PTEUR 




or : 


6C DD 


58 


JSR 


CHKSTR 




;SI NON-CHAINE, TYPE MISMATCH 


or o 1 ' oD 


85 


59 


STA 


LAST 


or Jo : oh 


86 


60 


STY 


LAST+1 


or . Art 

or J3 :mu 


00 


61 


LDY 


HO 


or 37 S B 1 


85 


62 


LDA 


(LAST) ,Y 




: LONGUEUR 






or • Q ^ 

or .v : BD 


1C 


63 


STA 


LEN 


o i — on . r* o 

yt- 3o : La 




64 


I NY 




8F3C : B 1 


85 


65 


LDA 


(LAST) ,Y 




: ET ADRESSE DE LA 


CHAINE 


3F3E : 85 


ID 


66 


STA 


Arin 

AL»K 


8F40 : CS 




67 


I NY 




OC.11 i B 1 

Br h l : Bl 


85 


68 


LDA 


(LAST) ,Y 


8F43 : 35 


IE 


69 


STA 


ADR+1 


or HD :h>U 


00 


70 


LDY 


ttO 


or h i \ 




71 ; 






Br h /: bi 


ID 


72 LOOP 


LDA 


(ADR) ,Y 




; PREND 


CHAQUE CARACTERE 




O C .1 ■ O A. 
or HY : OH 


IB 


73 


STY 


SAVE 




; DE LA 


CHAINE ET 






o c.i o • on 
or HB : 


66 8F 


74 


JSR 


PROP 




; L ' ENVOI E A PROP 






3F4E : A4 


IB 


75 


LDY 


SAVE 


8F50 :C8 




76 


I NY 




3F51 ;C4 


1C 


77 


CPY 


LEN 


orco , r\n 
Br Do : UU 


F2 


78 


BNE 


LOOP 


qcce; . on 
or DD : 

» 


B7 00 


79 


JSR 


CHRGOT 


8F58:C9 


3B 


80 


CMP 


***3B 




iPOINT-VIRGULE 






8F5A : DO 


04 


81 


BNE 


PRT 


occr t on 
or DU : 


Bl 00 


82 


JSR 


CHRGET 




;P0UR 


INCREMENTER 


TXTPTR 


orcr . x.n 

or jr : ou 




83 


RTS 




8F60 : 




84 ; 






8F60 :A9 


0D 


85 PRT 


LDA 


t*»D 


8F62:20 


66 8F 


86 


JSR 


PROP 



; FORCE IMPRESSION PAR SAUT DE LI G 



NE 



8F65:60 




87 END 


RTS 






;P0UR LES BRANCH 






8F66: 




88 : 






8F66: 




89 jROUTINE DE 


STOCKAGE D 


ANS BUFFER 






8F66: 




90 ; 






8F66:A6 


06 


91 PROP 


LDX 


XREG 




j INDEX 


DANS BUFFER 






8F68:29 


7F 


92 


AND 


»*7F 


8F6A:C9 


0D 


93 


CMP 


tt«D 




;C0DE 


13 PROVOQUE 


L' IMPRESSION 


8F6C:F0 


3D 


94 


BEQ 


CR 




; ET SAUT DE LIGNE 






8F6E:33 




95 


SEC 




8F6F:E9 


20 


96 


SBC 


t**20 


8F71 :90 


F2 


97 


BCC 


END 


8F73:0A 




98 


ASL 


A 




;AJUSTE POUR INDEXER 




8F74:9D 


00 95 


99 


STA 


BUFFER, X 


8F77:E3 




100 


I NX 




8F73:S6 


06 


101 


STX 


XREG 


8F7A: 




102 ; 






8F7A:20 


01 90 


103 


JSR 


GETADR 


8F7D:A0 


00 


104 


LDY 


#0 


8F7F:B1 


08 


1 05 


LDA 


( IMP) ,Y 



; LONGUEUR DES CODES POUR LA LETTR 

E 



8F81:18 106 CLC 

8F82:69 02 107 ADC »2 

;DEUX ESPACES ENTRE LETTRES 

Pom's n° 16 



8F84:85 


FB 


108 




STA 


AREG 


8FD8:A9 


00 


160 


LDA 


tto 


8F86:65 


19 


109 




ADC 


TOTAL 




;DEUX 


ESPACES ENTRE LETTRES 


8F88:S5 


19 


no 




STA 


TOTAL 


8FDA:20 


1A 90 


161 


JSR 


COUT 


8F8A:?0 


02 


1 1 1 




BCC 


ADDTOT 


8FDD:20 
8FE0 :A8 


1A 90 


162 
163 


JSR 
TAY 


COUT 


3F3C:E6 


1A 


112 




INC 


TOTAL+1 


8FE1 :B1 


08 


164 


LDA 


< INP) ,Y 


8F8E: 




113 


i 








: LONGUEUR DES CODES 




8F3E:A5 


FB 


114 


ADDTOT 


LDA 


AREG 


8FE3:A8 




1 65 


TAY 




3F?0 : 18 




115 




CLC 




8FE4:C8 




166 


I NY 




8F91 :65 


FC 


116 




ADC 


TOT1 


8FE5:84 


07 


167 


STY 


YREG 


3F?3:35 


FC 


117 




STA 


TOT1 


8FE7:A0 


01 


1 68 


LDY 


#1 


8F?5:90 


02 


113 




BCC 


TEST 


8FE9:B1 


OS 


169 NEXT BYT 


LDA 


< INP) ,Y 


8F97:E6 


FD 


119 




INC 


TOT1+1 




;CODE 


A SORT I R 






8F99: 




120 


i 






8FEB:20 


1A 90 


170 


JSR 


COUT 


8F99: 




121 


; TESTE 


DEBORDEMENT 


8FEE:C8 




1 71 


I NY 




8F99: 




122 


! 






8FEF:C4 


07 


172 


CPY 


YREG 


8F99:A5 


FD 


123 


TEST 


LDA 


TOT1+1 


8FF1 :DO 


F6 


173 


BNE 


NEXT BYT 


8F9B:C9 


03 


124 




CMP 


»3 


8FF3:E8 




1 74 


I NX 




8F9D:D0 


C6 


125 




BNE 


END 


8FF4:E4 


06 


1 75 


CPX 


XREG 


8F9F:A5 


FC 


126 




LDA 


TOT1 


8FF6:D0 
8FF8: 


DA 


176 
177 ; 


BNE 


NEXTCHR 


8FA1 :C9 


BO 


127 




CMP 


#176 


8FF8: 




178 ;RAZ DU 


BUFFER 




; TOTAL 


960 


CODES/LI GNE 




8FF8: 




179 ; 






8FA3:B0 


06 


128 




BCS 


CR 


8FF8:A2 
8FFA:86 


00 
06 


180 INIT 
181 


LDX 
STX 


no 

XREG 


SFA5: 




129 








8FFC:86 


19 


182 


STX 


.TOTAL 


8FA5: 




130 


; TESTE 


FIN DE BUFFER 


8FFE:86 


1A 


183 


STX 


TOTAL+ 1 


8FA5: 




131 


; 






9000 :60 




184 


RTS 




8FA5:A6 


06 


132 




LDX 


XREG 


9001 : 




185 : 




8FA7:D0 


BC 


133 




BNE 


END 


9001 : 




136 : SOUS-ROUTINES 


8FA9:F0 


1 1 


134 




BEQ 


PRINT 


9001 : 




1 87 ; 






3FAB: 




135 








9001 :A8 




188 GETADR 


TAY 




8FAB: 




136 


i IMPRESSION 


♦ SAUT DE 




iCHERCHE ADRESSE 


5ES CODES 


LIGNE + 


RAZ 


TOTAL 






9002:B9 


23 90 


189 


LDA 


INDEX. Y 


8FAB : 




137 


i 








:A PARTI R DE LA TABLE INDEX 


8FAB : EO 


00 


138 


CR 


CPX 


HO 


9005: 18 




190 


CLC 




8FAD : FO 


64 


139 




BEQ 


CROUT 


9006:69 


23 


191 


ADC 


**> INDEX 




; RI EN , 


JUSTE CR 






9008:85 


08 


192 


STA 


INP 


8FAF:20 


BC 8F 


140 




JSR 


PRINT 




:QUI POINTE EN "OFFSET" 




8FB2:20 


13 90 


141 




JSR 


CROUT 


900A:C8 




193 


I NY 




8FB5:A2 


00 


142 


RAZTOT 


LDX 


MO 


900B : B9 


23 90 


194 


LDA 


INDEX , Y 


8FB7:86 


FC 


143 




STX 


TOT1 


900E:69 


90 


195 


ADC 


»<INDEX 




FD 










9010 : 85 


09 


196 


STA 


INP+1 


8FB9:86 


144 




STX 


TOT1+1 












8FBB:60 




145 




RTS 




9012:60 




197 


RTS 




3FBC: 




146 


i 






9013: 




198 ; 

199 CROUT 






8FBC: 




147 


jIMPRIME BUFFER < SANS 


9013:A9 


OD 


LDA 


tt*D 


SAUT DE 


LIGNE) 








: RETOUR CHARIOT 






8FBC : 




148 








9015:20 


1A 90 


200 


JSR 


COUT 


8FBC:A9 


IB 


149 


PRINT 


LDA 


H*1B 


9018:A9 


OA 


201 


LDA 


«*A 




; CODES 


DE L'IMPRIMANTE 






:ET SAUT DE LIGNE 






8FBE:20 


1A 90 


150 




JSR 


COUT 


901A: 




202 ; 

20 3 COUT 








;<MODE 


GRAPHI QUE DOUBLE 


DENSITE) 


901A:2C 


CI CI 


BIT 


BUSY 


3FC1 :A9 


4C 


151 




LDA 


«*4C 




i ENVOI 


DIRECT 







SFC3:20 1A 90 152 

8FC6:A5 19 153 

8FC8:20 1A 90 154 

8FCB:A5 1A 155 

8FCD.-20 1A 90 156 

8FD0:A2 00 157 
8FD2 : BD 



JSR 
LDA 
JSR 
LDA 
JSR 
LDX 



00 95 158 NEXTCHR LDA 
; LETTRE A SORT I R 
3FD5:20 1 90 159 JSR 



COUT 

TOTAL 

COUT 

TOTAL+1 

COUT 

no 

BUFFER, X 
GETADR 



901D:30 

901F:8D 

9022:60 

9023: 

90 23: 

9023: 

9023: 



iff L' : 



204 
IMPRIMANTE 
90 CO 205 
206 
207 ; 

203 ; TABLE 

209 ; 

210 INDEX 



BMI COUT 

STA DATA 
RTS 

DES INDEX 

EQU * 



»** SUCCESSFUL ASSEMBLY: NO ERRORS 



PREPROP.SCE 



SOURCE FILE: PREPROP.SCE 

NEXT OBJECT FILE NAME IS PREPROP.SC 

E . OB JO 

0300: 1 ORG S300 

0300: 2 »***»******»»****»♦»»* 

»»**«•****» 

0300: 3 »PREPROP: REJECTOR I SE C 

SWL 

Pom's n- 16 



0300 : 
0300 : 

030P : 

0300 : 

0300 : 
AA53: 
8F66: 



PROP 
ER 

**»*•**♦*« 



4 *POUR PROP 

5 »CALL768 POUR BRANCHER 

6 *CALL789 POUR DEBRANCH 

7 ***»**»#»«*♦»**«»«»»#» 



8 ; 

9 CSUIL 
10 PROP 



EQU *AA53 
EQU *8F66 



0045: 




1 1 


AREG 


EUu 


■SI'S 




;DE SAVE 








00FE: 




12 


COUT1 


EQU 


*FE 


FF4A: 




13 


SAVE 


EQU 


*FF4A 


FF3F: 




14 


RESTORE EQU 


*FF3F 


FF58: 




15 


RETURN 


EQU 


*FF58 


0100 : 




16 


STACK 


EQU 


*100 


0300 : 




17 








0300 : 




18 


;INIT 


PROP 




0300 : 




1? 


i 






0300 : AD 


53 AA 


20 




LDA 


CSWL 


0303:85 


FE 


21 




STA 


COUT1 




: SAUVEGARDE L'ANCIEN 




0305. -AD 


54 AA 


22 




LDA 


CSWL+1 


0303:85 


FF 


23 




STA 


COUT1 +1 


030A: 




24 


! 






030A:20 


58 FF 


25 




JSR 


RETURN 




: CHERCHE ADRESSE 


RELOGEE 


030D:BA 




26 


ICI 


TSX 




030E:CA 




27 




DEX 




030F:BD 


00 01 


28 




LDA 


STACK, X 


0312: 18 




29 




CLC 




0313:69 


21 


30 




ADC 


»>PROPZ-I 


CI + 1 










0315:8D 


53 AA 


31 




STA 


CSUIL 


0318:ES 




32 




I NX 




031?:BD 


00 01 


33 




LDA 


STACK, X 



031C:69 00 

CI + 1 
031E:8D 54 AA 
0321 :60 
0322: 
0322: 

I EN 

0322: 

0322:A5 FE 
0324:8D 53 AA 
0327:A5 FF 

0329 :8D 54 AA 

032C:60 

032D: 

032D: 



ADC »<PROP2-I 



STA 
RTS 



CSWL+1 



34 

35 
36 

37 ; 

38 ;DES-INIT: REMET L'ANC 



39 ; 
40 
41 
42 

43 
44 

45 : 

46 ; ROUTINE EXECUTEE AVAN 



LDA COUT1 

STA CSWL 

LDA COUT1+1 

STA CSWL+1 
RTS 



T PROP: 

032D: 47 ; SAUVE REGISTRES PUIS 

RESTORE A LA FIN 



032D: 




48 ; 






032D:20 


4A FF 


49 PROPZ 


JSR 


SAVE 


0330 :A5 


45 


50 


LDA 


AREG 




;SAVE 


MODI FIE A 






0332:20 


66 8F 


51 


JSR 


PROP 


0335:20 


3F FF 


52 


JSR 


RESTORE 


0338:6C 


FE 00 


53 


JMP 


<C0UT1 ) 




; JUMP 


AU VRAI COUT 







Acces direct aux disquettes 

Guy d'Herbemont 



Dans le Pom's 10 nous etait presente 
un programme simple d'acces direct 
aux disquettes. Mais il y a plus sim- 
ple encore ! La routine contenue 
dans la ligne 100 du programme 
propose ici suffit en effet pour reali- 
ser ce type d'operations. 

Le DOS assure lui meme l'essentiel 
du travail en utilisant le buffer de 
256 octets commenqant en 46267 
($B4BB) et l'appel a RWTS se fait 
en 45111, apres entree des parame- 
tres aux endroits indiques. 

Voici venue la fin du regne de la 
bande des quatre (lOB. table DCB, 
accumulateur et registre Y) sur 
RWTS, loyal serviteur scandalise par 
les codes caches... 

Nous devons la decouverte de ces 
adresses a Bill Parker (Call 
A.P.P.L.E. in Depth (N° 3), mais je 
ne le suivrai pas totalement dans sa 



demarche. En effet, apres s'etre in- 
quiete des dialogues avec le buffer, il 
a aussitot succombe aux charmes de 
l'ampersand. pour aboutir finalement 
a deux excellents programmes, 
certes, mais relativement longs et 
dont l'un est en assembleur. 

Pour rester concis, et je I'espere utile, 
j'ai inclus la routine de la ligne 100 
dans un petit programme Applesoft 
qui affiche le contenu d'un secteur 
choisi de deux manieres : 

• Affichage du code hexadecimal 
des 256 octets du buffer. Pour ce 
faire. l'appel au moniteur s'impose 
et le dialogue s'etablit facilement 
avec la methode de S.H.LAM 
(voir Recueil 1, page 94). 

• Affichage des caracteres concate- 
nes (ligne 40). Les lignes 60 et 70 
servent a modifier les caracteres 
perturbateurs ou indesirables. tout 
en conservant le code 255 ($FF) 



qui s' affiche sous forme du damier 
(curseur de l'Apple He) et permet 
notamment de retrouver dans la 
piste 17 ($11) la position des fi- 
chiers effaces que Ton souhaiterait 
recuperer. 

La table des codes hexadecimaux 
comportant 33 lignes, il pourrait etre 
utile de prevoir sa sortie sur impri- 
mante. 

L' exploration du contenu des sec- 
teurs de leurs disquettes promet bien 
des surprises a ceux qui n'ont pas 
encore eu l'occasion de s'y attarder. 
La routine de la ligne 100 peut evi- 
demment etre utilisee egalement 
pour l'ecriture (C=2), mais il appar- 
tient alors a chacun de mesurer les 
consequences de ses actes en fonc- 
tion de sa connaissance de la struc- 
ture des disquettes et du fonctionne- 
ment du DOS. 



] LOAD ACCES. HERBEMONT 
ILIST 

1 REM LECTURE DIRECTE 

2 REM SUR DISQUETTE 

3 REM =============== 

5 C = 1: INPUT "PISTE : ";P: INPUT "SiCTE 
UR : ";S:SL0T = 6:DRIV£ = 1: ON P 
< OR P > 34 OR S < OR S > 15 G 
0T0 5: GOSUB 100 
10 REM LECTURE EN HEXADECIMAL 
20 A* = "B4BB.B5BA ND823G" : FOR I = 1 TO 
LEN (A*): POKE 511 + I, ASC < MID 
* (A*, 1,1)) + 128: NEXT : POKE 72, 
0: CALL - 144: PRINT 



30 REM LECTURE EN CARACTERES 

40 BUF = 46267: FOR I = TO 255: A = PEE 

K <BUF + I>: GOSUB 60: PRINT A*;: 

NEXT : PRINT 

50 END 

60 A* = CHR* (A): IF <A > 32 AND A < 127 

> OR A > 161 THEN RETURN 
70 A* = " . " : RETURN 

90 REM ACCES DISQUE PAR LA ; ETHODE SIMP 
LI F I EE 

100 POKE 45121, C: POKE 45975, P: POKE 459 
76, S: POKE 46583 , SLOT * 16: POKE 4 
6534, DRIVE: CALL 45111: POKE 45121 
,2: POKE 72,0: RETURN 

Pom's n" 16 



L' Apple en multitache ? 

Jerome Leclercq 



Avoir un Apple pour travailler, c'est 
bien. Mais en avoir deux ? Le pro- 
gramme DOUBLE APPLE n'effectue 
pas la multiplication des pommes, 
mais permet de travailler SIMULTA- 
NEMENT sur deux programmes en 
Applesoft. 

Les utilisations sont nombreuses : ex- 
ploitation de deux versions d'un pro- 
gramme, consultation de l'un pen- 
dant que Ton edite 1'autre, etc. 

L'initialisation, apres le chargement 
de la routine, est lancee par un 
&CLEAR. Votre programme prece- 
dent semble disparaftre mais n'est 
pas efface : la commande SIN- 
VERSE echange les deux program- 
mes en memoire. Ceux-ci peuvent 
Stre charges, sauves sur disque, 
edites et bien sur executes sous la re- 
serve que les variables soient globa- 
les pour l'ensemble des program- 
mes : la valeur d'une variable 




commune est done identique quel- 
que soit le programme actif. 



La memoire disponible pour le se- 
cond programme, apres la com- 
mande &CLEAR, correspond a l'en- 
semble de la memoire libre moins 
$3000 octets (parametre MARGE de 
l'assemblage) qui sont reserves pour 
1' extension du premier programme. 

Si ce demier, en cours d'edition, ap- 
proche tres pres de la frontiere, une 
serie de deux beeps se fait entendre 
a chaque touche enfoncee. II est 
alors preferable de sauver les deux 
programmes, puis de les recharger 
en relancant la routine, plutot que de 
risquer d'ecraser le debut du second 
programme. 

Pour un apercu des possibilites de la 
routine, lancer la demonstration avec 
EXEC DOUBLE APPLE. DEMO et 
examiner Interference des variables 
entre les 2 programmes. 



1 * > DOUBLE APPLE < # 

2 

3 » Cr(ation: 04/04/84 J. Leclercq 

4 « ModifiC: 20/06/84 A. Avrane 
5 



6 


ORG 


♦ 300 


7 






8 SAV2TXT 


= 


♦06 


9 SAV2END 




»08 


10 KSW 




♦38 


11 TXTTAB 


m 


%67 


12 PRGEND 




*AF 


13 CHRGET 


= 


*B1 


14 SAVTXT 




♦EB 


15 SAVEND 




•ED 


16 NUMERO 




♦EF 


17 INTDOS 




*3EA 


18 AMPER 


= 


»3F5 


19 NEW 




»D64B 


20 KEYIN 




♦FD1B 


21 BELL 




♦FF3A 


22 MARGE 




♦30 


23 












25 * Place 

26 * — 


tc et 


la routine de saisie 


27 


LDA 


#*4C jmp 


28 


STA 


AMPER 


29 


LDA 


tt< ENTRY 


30 


STA 


AMPER+ 1 


31 


LDA 


M> ENTRY 


32 


STA 


AMPER+2 


33 






34 


LDA 


W < ENTRY2 


35 


STA 


KSU 


36 


LDA 


H>ENTRY2 


37 


STA 


KSW+1 


38 


JMP 


INTDOS 


39 







40 * -■■ 

41 * Controle 1 'appel 



43 ENTRY = * 

44 CMP #«BD clear 

45 BEQ CLEAR 

4 <* CMP *»9E inverse 

47 BEQ INVERSE 

48 RTS 
49 



51 * Clear: initialise la scission 



53 CLEAR 


LDA 


TXTTAB 


54 


STA 


SAVTXT 


55 


LDA 


TXTTAB+ 1 


56 


STA 


SAVTXT* 1 


57 


LDA 


PRGEND 


58 


STA 


SAVEND 


59 


LDA 


PRGEND+ 1 


60 
61 


STA 


SAVEND* 1 


62 


LDA 


PRGEND 


63 


STA 


TXTTAB 


64 


LDA 


PRGEND* 1 


65 


CLC 




66 


ADC 


t* MARGE 


67 


STA 


TXTTAB* 1 


68 






69 


LDA 


«2 


70 


STA 


NUMERO 


71 


JSR 


CHRGET 


72 


LDA 


TXTTAB 


73 


SEC 




74 


SBC 


ttl 


75 


STA 


PTRDEBUT 


76 


LDA 


TXTTAB* 1 


77 


SBC 


NO 


78 


STA 


PTRDEBUT* 1 



79 




LDA 


HO 




109 


STA 


PRGEND+ 1 


80 




STA 


♦3333 


Ccras< ! 


110 


LDA 


SAV2TXT 


81 


PTRDEBUT 




»-2 




111 


STA 


SAVTXT 


82 




JMP 


NEW 




112 


LDA 


SAU2TXT+1 


83 










113 


STA 


SAVTXT+1 


84 










114 


LDA 


SAV2END 


85 


•Inverse 


rCchange les 2 


programmes 


115 


STA 


SAVEND 


86 








116 


LDA 


SAV2END+1 


87 


INVERSE 


LDA 


Ml 




117 


STA 


SAVEND+1 


88 




CMP 


NUMERO 




118 


JMP 


CHRGET 


89 




BNE 


P2VERSP1 




119 






90 




LDA 


N2 




120 






91 




STA 


NUMERO 




121 


» Saisie: control* dCbordemen t 


92 




BNE 


ECHANGE 


= jmp 


122 






93 


P2VERSP1 


STA 


NUMERO 


A=l 


123 


ENTRY 2 


• 


94 


ECHANGE 


LDA 


TXTTAB 




124 


JSR 


KEYIN 


95 




STA 


SAV2TXT 




125 


PHA 




96 




LDA 


TXTTAB+1 




126 


LDA 


NUMERO 


97 




STA 


SAV2TXT+ 1 




127 


CMP 


ttl 


98 




LDA 


PRGEND 




128 


BNE 


EXIT 


99 




STA 


SAU2END 




129 


LDA 


PRGEND+ 1 


1 00 




LDA 


PRGEND+ 1 




130 


CLC 




101 




STA 


SAV2END+1 




131 


ADC 


ttl s(curit< 


102 




LDA 


SAVTXT 




132 


CMP 


SAVTXT+1 


103 




STA 


TXTTAB 




133 


BCC 


EXIT 


104 




LDA 


SAVTXT+1 




134 


JSR 


BELL 


105 




STA 


TXTTAB+1 




135 


JSR 


BELL 


106 




LDA 


SAVEND 




136 


EXIT PLA 




107 




STA 


PRGEND 




137 


RTS 




108 




LDA 


SAVEND+1 




138 


END 





*BLOAD DOUBLE APPLE 
*300.3B7 

0300- A? 4C 8D F5 03 A9 1A 8D 
0308- F6 03 A9 03 8D F7 03 A? 
0310- 9D 85 38 A9 03 85 39 4C 
0318- EA 03 C9 BD F0 05 C9 9E 
0320- F0 3A 60 A5 67 85 EB A5 
0328- 68 85 EC A5 AF 85 ED A5 
0330- B0 85 EE A5 AF 85 67 A5 
0338- B0 18 69 30 85 68 A9 02 
0340- 85 EF 20 Bl 00 A5 67 38 
0348- E9 01 8D 57 03 A5 68 E9 
0350- 00 8D 58 03 A9 00 8D 33 
0358- 33 4C 4B D6 A9 01 C5 EF 
0360- DO 06 A9 02 85 EF DO 02 
0368- 85 EF A5 67 85 06 A5 68 
0370- 85 07 A5 AF 85 08 A5 B0 
0378- 85 09 A5 EB 85 67 A5 EC 
0380- 85 68 A5 ED 85 AF A5 EE 
0388- 85 BO A5 06 85 EB A5 07 
0390- 35 FC A5 08 85 ED A5 09 
0398- 85 EE 4C Bl 00 20 IB FD 
03A0- 48 A5 EF C9 01 DO OF A5 
03A8- BO 18 69 01 C5 EC 90 06 
03B0- 20 3A FF 20 3A FF 68 60 



1EXEC DOUBLE APPLK.DEMO 
IMONICO 

3BLOAD DOUBLE APPLE 
3 CALL 768 



] LOAD DOUBLE APPLE. PI 
]& CLEAR 

] LOAD DOUBLE APPLE. P2 
]& INVERSE 



] LOAD DOUBLE APPLE. PI 
1LIST 

REM Pl/A.AVRANE/200684 

10 REM PROGRAMME 1 

11 DEF FN L<L> = L + 1 / K 
20 FOR I = 1 TO 33 

25 INVERSE : LIST 9,50: NORMAL 

30 : & INVERSE : GOTO 1 

40 L = FN L<L) 

50 PRINT "L='L: NEXT 

70 PRINT 

80 PRINT "NOMBRE D'OR = "L 

JLOAD DOUBLE APPLE. P2 

1 LI ST 

REM P2/A.AVRANE/200684 

1 INVERSE : LIST 10,45: NORMAL 
5 PRINT "I="I , 

10 REM PROGRAMME 2 

11 K = 1 

12 DEF FN K(K) = K * J 

40 FOR J = 1 TO I 

41 :K = FN K(K> : NEXT 
50 PRINT "K="K 

70 PRINT 

80 & INVERSE : GOTO 40 



26 
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Initiation a 1'assembleur (6) Gerard Michel 



Comme tous les langages. ou pres- 
que. 1'assembleur peut servir a l'ecri- 
ture de programmes complets. D'ail- 
leurs. la plupart des logiciels 
"professionnels" vous sont livres sous 
forme de codes machine, resultats de 
l'assemblage de volumineux pro- 
grammes sources. Dans ce cas, 
toutes les operations du logiciel ont 
ete congues en assembleur : entree 
au clavier et affichage a 1'ecran. af- 
fectation des valeurs aux variables, 
calculs. acces disques. impression... 
Meme si Ton utilise alors intensement 
les routines offertes par la ROM de 
I' Apple ou par son DOS, il est evi- 
dent que la mise au point d'un tel 
logiciel represente un travail de lon- 
gue haleine et d'une grande minutie. 

Autre utilisation possible de 1'assem- 
bleur, plus souple et plus facile a 
mettre en oeuvre, I'ecriture de mo- 
dules de taille "abordable", utilises 
en complement d un langage evolue, 
fera l'objet du present article. 
Dans la mesure ou 1' Applesoft consti- 
tue le compagnon inseparable de 
votre Apple II ou //, nous examine- 
rons done les moyens par lesquels 
peut s'amenager une cohabitation 
entre ce Basic "evolue" et des routi- 
nes en langage-machine issues de 
votre travail de creation. 
L' assembleur permettra alors de faire 
certaines choses plus vite ou mieux 
que le Basic, il en completera le jeu 
destructions, mais 1'essenriel de vos 
programmes sera toujours realise en 
Applesoft, garantissant ainsi une plus 
grande rapidite d'ecriture. sinon un 
soulagement au niveau des maux de 
tete... 

CALL : pour et contre 

Pour appeler une routine a partir du 
Basic, il semble facile d'utiliser une 
instruction Basic comme CALL, que 
vous connaissez deja bien. Pour ap- 
peler une routine debutant a 
l'adresse decimale A (point d'entree), 
on insere CALL A a l'endroit voulu 
dans le programme et 1'ordinateur 
procede a I' execution de la routine 
avant de revenir a I' Applesoft. 

C'est effectivement la solution la plus 
simple, car on laisse finalement au 
Basic le soin d'assurer lui-meme la 
jonction avec les routines, sans avoir 
a se preoccuper de la fagon dont il y 
parvient. 

Le CALL est bien pratique pour ex- 
ploiter certaines routines de la ROM : 
CALL -868 pour effacer la fin de la 
ligne courante, par exemple. De 
meme pour utiliser des routines de 
votre cru. prealablement chargees a 
l'adresse adequate. 



Mais 1' usage du CALL comporte des 
limitations qui reduisent en fait son 
champ d'application : 

• Si la routine appelee reclame des 
parametres, il n'est pas facile de 
les lui transmettre autrement que 
par des POKEs plus ou moins 
nombreux. a des adresses choisies 
a l'avance et qui doivent rester a 
la disposition de l'utilisateur. 

• Si la routine comporte plusieurs 
points d'entree. en fonction des 
traitements a effectuer, il faut faire 
des CALLs a des adresses diffe- 
rentes, ou POKEr quelque part un 
parametre permettant a la routine 
de determiner sur quel point d'en- 
tree elle doit se brancher. 

• Si vous modifiez les routines et 
que cela deplace les points d'en- 
tree, il faut alors modifier egale- 
ment le programme Basic... 

Nous presenterons done ici deux 
autres solutions pour realiser 1' inter- 
face entre Basic et langage-machine. 
La premiere fait egalement appel a 
l'Applesoft "evolue", au travers de 
l'instruction &, dont la renommee 
n est plus a faire. La seconde utilise 
en revanche une routine en langage- 
machine de l'Applesoft, dont nous 
parlerons en detail plus avant. Dans 
un cas comme dans I' autre, 1' utilisa- 
tion de ces techniques suppose un 
minimum de renseignements sur la 
fagon dont ['Applesoft execute et ma- 
nipule les instructions d'un pro- 
gramme. 

Analyse du RUN 

Structure d'un programme 

Un programme Applesoft est stocke 
en memoire centrale a partir d'une 
adresse "pointee" par les adresses 
$67 et $68. En situation normale, 
e'est-a-dire en l'absence de manipu- 
lation des pointeurs par le program- 
meur, cette adresse de debut est 
$801; on trouve alors #$01 dans 
$67 et #$08 dans $68. L'adresse 
$800 contient toujours pour sa part 
la valeur si l'adresse de debut des 
programmes est fixee a $801. 
Si aucun programme ne se trouve en 
memoire, apres un NEW par exem- 
ple, les trois adresses successives 
$800, $801 et $802 contiennent la 
valeur 0. 

Une ligne de programme est stockee 
de la fagon suivante : 

• Adresse de la ligne suivante. dans 
l'ordre octet bas / octet haut : si la 
deuxieme ligne commence en 
$80A. on trouvera #$0A dans 
$801 et #$08 dans $802. Si la 



troisieme ligne debute en $818. 
on aura alors #$18 dans $80A et 
#$08 dans $80B. 

• Numero de la ligne, dans l'ordre 
octet bas / octet haut. 

• Codes des instructions de la ligne. 

• La fin de la ligne est marquee par 
un 0. 

On sait que Ton est a la fin du pro- 
gramme lorsque Ton trouve et 
dans les deux octets ou Ton devrait 
autrement trouver l'adresse de la 
ligne suivante. Un programme Apple- 
soft se termine done par trois 0. un 
pour marquer la fin de la derniere 
ligne. et deux pour marquer la fin du 
programme. C'est la meme configu- 
ration que celle des adresses $800 a 
$802 lorsqu'il n'y a pas de pro- 
gramme du tout. 

Pour bien comprendre la suite, il se- 
rait bon de vous munir de votre 
Pom's 4 ou de votre recueil 1, et de 
l'ouvrir a 1'article traitant des codes 
ASCII epluches. 

En effet. les instructions de l'Apple- 
soft ne sont pas stockees "en clair", 
mais sous la forme de "tokens", 
e'est-a-dire de codes sur un octet, 
chacun de ces codes correspondant a 
une et une seule instruction. Ainsi, si 
vous avez un PRINT dans une ligne. 
vous ne trouverez pas en memoire 
les codes ASCII des lettres P, R, I, N 
et T, mais tout simplement BA, qui 
est le token de PRINT en hexadeci- 
mal. 

Les autres composantes des instruc- 
tions (variables, constantes numeri- 
ques, constantes alphanumeriques...) 
sont en revanche conservees sous 
forme ASCII. Pour PRINT 39, par 
exemple, on aurait en memoire BA 
33 39. II s'agit toujours d' ASCII posi- 
tif, avec le bit 7 des codes a 0, car 
les tokens de l'Applesoft utilisent 
I' ASCII negatif (bit 7 a 1) et s'eten- 
dent des valeurs #$80 a #$EA. 

L'Applesoft utilise un pointeur de 
programme, situe aux adresses $B8- 
$B9. Ce pointeur est gere par une 
routine commengant a l'adresse $B1 
(baptisee souvent CHRGET), sur la- 
quelle nous reviendrons plus loin en 
detail. Pour l'heure, il nous suffit de 
savoir que ce pointeur contient 
l'adresse du caractere du programme 
Basic (token, element d'un nom de 
variable...) que l'interpreteur est en 
train d' analyser. Prenons 1' exemple 
du petit programme suivant : 

10 PRINT 39 

11 est stocke en memoire a partir de 
$801 sous la forme : 

801- 09 08 OA 00 BA 33 39 

808- 00 00 00 



Lorsque l'interpreteur abordera l'ana- 
lyse du token de PRINT (BA), le 
pointeur de programme $B8-$B9 
contiendra l'adresse de BA, soil $805 
(# $05 dans $B8 et #$08 dans 
$B9). 

Lorsque vous lancez l'execution de 
votre programme par RUN, l'Apple- 
soft procede tout d'abord a quelques 
initialisations : remise a zero des va- 
riables, positionnement du pointeur 
de programme au debut de celui-ci 
(soit adresse contenue dans $67-$68. 
diminuee de 1), c'est-a-dire a $800 
dans le cas standard. . . 
On arrive ensuite sur une routine de- 
butant en $D7D2 et qui constitue le 
coeur de l'interpreteur de I'Applesoft, 
car c'est elle qui "lit" les instructions 
du programme, en prepare 1'analyse 
et assure le branchement sur les rou- 
tines de traitement correspondant a 
chacune de ces instructions. 

L'execution du programme 

Le listing ci-dessous reprend l'essen- 
tiel de la routine d' execution des ins- 
tructions. Nous en examinerons les 
points principaux, afin de determiner 
dans quelles conditions on peut sans 
risques ajouter a I'Applesoft d'autres 
instructions, au moyen de routines 
"maison". 



0702- 


BA 






TSX 






0703- 


84 


F8 




srx 


«F3 




0705- 


20 


5a 


08 


JSR 


♦0853 




D7D8- 


A5 


B8 




L0A 


«88 




07DA- 


Ad 


E3 ■ 




LOY 


SB9 




D7DC- 


A4 


76 




LDX 


*74 




D70E- 


E3 






INX 






07DF- 


F0 


04 




BEQ 


♦ D7E5 




D7E1 - 


85 


79 




STA 


♦ 79 




D7E3- 


31 


7f> 




STY 


*7A 




D7E5- 


AO 


3 




LOY 


MOO 




D7E7- 


Bl 


63 




L0A 


<*83) 


Y 


07E9- 


00 


57 




BNE 


♦ 0342 




D7EB- 


AO 


or 




LDY 


■♦0 2 




D7E0- 


81 


B8 




LDA 


(♦S3) 


Y 


D7EF- 


13 






CLC 






07FO- 


F0 


34 




BEQ 


*0324 




07F2- 


C3 






I NY 






07F3- 


Bl 


= 3 




LDA 


(♦B8> 


Y 


D7F3- 


35 


75 




STA 


*75 




D7F7- 


C3 






[NY 






D7F8- 


Bl 


S3 




LOA 


<*83) 


Y 


07FA- 


85 


76 




STA 


♦ 74 




07FC- 


93 






TYA 






D7F0- 


. 45 


S3 




ADC 


*B3 




07FF- 


35 


33 




STA 


»8S 




080 1 - 


90 


02 




sec 


♦030 5 




D803- 


E4 


B9 




INC 


♦ 89 




osos- 


24 


F2 




BIT 


*F2 




0807- 


10 


14 




3PL 


»03!D 




D309- 


A4 


76 




LDX 


♦ 74 




oaos- 


E3 






INX 






D80C- 


F0 


OF 




BEQ 


♦ 0310 




D80E- 


A9 


23 




LOA 


•♦23 




0810- 


20 


5C 


OS 


JSR 


♦ D85C 




0813- 


Ao 


75 




LDX 


S75 




081 5- 


AS 


76 




LOA 


*74 




081 7- 


20 


24 


E0 


JSR 


♦ E024 




D31A- 


20 


57 


08 


JSR 


♦ 0857 




0310- 


20 


3: 





JSR 


♦ 0081 




0820- 


20 


23 


08 


JSR 


♦0823 




0823- 


4C 


02 


07 


JMP 


♦0702 




0824- 


FO 






3EQ 


♦088A 




D323- 


F0 


2D 




BEQ 


♦ 0357 




D82A- 


E9 


90 




SBC 


= 400 




D32C- 


90 


11 




sec 


♦083F 




082E- 


C? 


40 




CMP 


■♦40 




0830- 


B0 


14 




BC3 


♦0844 




0832- 


OA 






ASL 






0333- 


A8 






TAY 






0834- 


B? 


01 


3 


LDA 


♦ 000 1 


Y 


0337- 


48 






PHA 






0838- 


89 


3 


00 


LOA 


♦ 0000 


Y 


0338- 


48 






PHA 






D83C- 


-: 


3! 


00 


JMP 


♦ 0081 




093F- 


4C 


44 


DA 


JMP 


♦ 0A44 





0842- 


C9 


3A 




CMP 


^♦3A 


ZIT' 


F0 


8F 




BEQ 


♦ 0805 


0844- 


4C 


cs 


DE 


JMP 


♦ 0EC9 


0849- 


33 






SEC 




D84A- 


A5 


47 




LOA 


♦ 47 


084C- 


E9 


o: 




SBC 


"♦01 


D84E- 


A4 


48 




LOY 


♦ 48 


0850- 


B0 


01 




BCS 


♦0853 


0852- 


88 






DEY 




D353- 


85 


70 




STA 


♦ 70 


0855- 


34 


7E 




STY 


♦ 7E 


0857- 


' 40 






RTS 




0858- 


AO 


00 


CO 


LDA 


♦ COOO 


0858- 


C9 


3 3 




CMP 


•♦83 


DS5D- 


F0 


01 




8EQ 


♦ D340 


D33F- 


40 






RTS 




0840- 


23 


53 


05 


JSR 


♦0553 


0843- 


A2 


FF 




LDX 


■♦FF 


0845- 


24 


08 




BIT 


♦ 08 


0347- 


10 


3 




8PL 


♦ D84C 


0849- 


4C 


E9 


F2 


JMP 


♦ F2E9 


D84C- 


C? 


03 




CMP 


"♦03 


D84E- 


60 


: 




8CS 


♦ D871 


0870- 


13 






CLC 




0871- 


DO 


3C 




SNE 


♦ D8AF 


0873- 


A5 


B8 




LDA 


♦ 83 


0375- 


A4 


3 7 




LDY 


♦ B9 


0377- 


Ao 


74 




LDX 


♦ 74 


0879- 


E8 






INX 




087A- 


F0 


OC 




BEQ 


♦0838 


D37C- 


35 


79 




STA 


♦ 79 


D87E- 


84 


7A 




STY 


♦ 7A 


0830- 


A5 


75 




LOA 


♦ 75 


0882- 


A4 


7-. 




LDY 


♦ 74 


D884- 


35 


77 




STA 


♦ 77 


0334- 


3-: 


78 




STY 


♦ 73 


0888- 


SS 






PLA 




0839- 


48 






PLA 




06SA- 


A9 


50 




LDA 


"♦SO 


0S3C- 


AO 


03 




LDY 


"♦03 


DS8E- 


90 


33 




8CC 


♦ D893 


0890- 


4C 


31 


04 


JMP 


♦ 0431 


0893- 


4C 


3C 


04 


JMP 


♦ D43C 


0394- 


00 


1 ~ 




BNE 


♦ D8AF 



- $D7D2-$D7D3 : sauvegarde du 
pointeur de pile en $F8. 

- $D7D5 : la routine en $D858 veri- 
fie si l'on a tape CTRL-C (code cla- 
vier #$83) en cours d' execution du 
programme. Si tel n'est pas le cas, et 
c'est ce qui nous interesse ici. on re- 
vient simplement par RTS. 

- $D7D8-$D7DA: on charge le 
pointeur de programme dans les re- 
gistres A et Y. Lorsque Ton arrive en 
$D7D2 pour la premiere fois apres le 
RUN, le compteur de programme 
contient $800 dans le cas standard 
(adresse de debut du programme 
moins 1). De maniere generale, cha- 
que fois que l'on aborde $D7D2 
pour executer une nouvelle instruc- 
tion, $B8-$B9 contient l'adresse de 
rinstruction a executer. diminuee de 
1. 

- $D7DC a $D7DF : en $75-$76 se 
trouve stocke le numero de la ligne 
en cours d' execution, toujours dans 
l'ordre poids faible / poids fort. Si 
l'on est en mode immediat. 1' octet 
haut du numero de ligne est rem- 
place par #$FF dans $76: par conse- 
quent, si X contient la valeur de $76 
et si l'on augmente X de 1. on ob- 
tiendra si $76 contenait #$FF, cas 
du mode immediat. Le test BEQ de 
l'adresse $D7DF provoquera done le 
branchement en $D7E5 si l'on est en 
mode immediat. 

Bien que ce soit un peu hors sujet, 
precisons que l'execution des ordres 
Basic donnes en mode immediat 
passe egalement par la routine 
$D7D2. comme le montre les ins- 



tructions ci-dessus. On utilise done 
egalement la routine CHRGET en 
$B1, mais le "pointeur de pro- 
gramme" pointe alors sur les adres- 
ses des instructions dans le buffer 
d'entree au clavier, et non plus dans 
la zone de stockage des programmes. 

- $D7E1-$D7E3: en $79-$7A se 
trouve toujours stockee, en mode 
programme, l'adresse de l'instruction 
a executer diminuee de 1. L'instruc- 
tion CONT utilise cette adresse pour 
relancer l'execution. On copie done 
en $79-$7A le contenu de $B8-$B9. 

- $D7E5 a $D7E9 : sans modifier la 
valeur du pointeur de programme, 
on examine 1' octet pointe par ce der- 
nier. Si l'on trouve 0, tout va bien, et 
c'est effectivement le cas lorsqu'on 
arrive ici juste apres RUN puisque 
$800 contient 0. 

Sinon, on saute en $D842, ou Ton 
verifie cette fois s'il s'agit de ":" 
(#$3A). Dans l'affirmative, on re- 
tourne dans la routine, mais dans le 
cas contraire, on saute a $DEC9 qui 
envoie une SYNTAX ERROR. 
Conclusion : quand on arrive en 
$D7D2 pour executer une nouvelle 
instruction, $B8-$B9 doivent pointer 
sur l'octet qui precede l'instruction en 
question et cet octet doit etre "0" ou 
":" afin d'eviter une erreur de syn- 
taxe. C'est un point qu'il convient de 
garder en memoire si l'on veut intro- 
duire de nouvelles instructions. 

-$D7EB a $D7F0 : nous sommes 
dans le cas ou $B8-$B9 pointe sur 
un 0, ce qui peut correspondre a 
deux situations : on est au tout debut 
du programme ($800) ou on est a la 
fin d'une ligne (marquee par un 0, 
comme rappele plus haut). En tout 
etat de cause, on doit avoir juste 
apres le l'adresse de la ligne sui- 
vante, l'octet de poids fort se trou- 
vant deux octets plus loin que la po- 
sition actuelle pointee par $B8-$B9 
(LDY #$02 en $D7EB). 
Comme l'adresse de debut d'un pro- 
gramme ne peut se trouver en des- 
sous de $800 si l'on veut eviter de 
traumatiser profondement l'Apple, 
l'octet de poids fort de l'adresse 
d une instruction ne peut etre a 
que si elle correspond a la marque 
de fin de programme (voir supra), ou 
a l'absence de programme ($800- 
$801 -$802 a zero). Si tel est le cas. 
on saute en $D826 qui nous amene 
en $D88A. Sans entrer dans les de- 
tails, precisons que le JMP $D43C 
nous ramene finalement en mode 
immediat, comme toujours en fin 
d'execution de programme Apple- 
soft. 

- $D7F2 a $D7FA: il s'agit cette 
fois de passer a la ligne suivante. 
Aux index 3 et 4 par rapport a la po- 
sition actuelle pointee par $B8-$B9. 
on trouve le numero de cette ligne, 
que Ton stocke alors en $75-$76 
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(numero de la ligne en cours d'exe- 
cution). 

- $D7FC a $D803 : en ajoutant 4 
(valeur de Y transferee dans A) a la 
valeur de $B8-$B9, on deplace le 
pointeur de programme qui contient 
maintenant I'adresse de la premiere 
instruction de la ligne. diminuee de 
1. 

- $D805 a $D81A : c'est la que Ton 
revient si Ton etait arrive dans 
$D7D2 en pointant sur un ":" et non 
sur un 0. Les deux cas de figure se 
rejoignent. 

Si le contenu de $F2 est negatif, on 
est en mode TRACE, sinon on passe 
directement a la suite (BPL $D81D), 
comme on le fait egalement si Ton 
est en mode immediat ($76 contient 
alors #$FF). 

En mode TRACE, on affiche un # 
(code ASCII $23) suivi du numero 
de la ligne (lu en $75-$76) au 
moyen des routines $DB5C (affiche 
le contenu de l'accumulateur), 
$ED24 (affiche le contenu de X suivi 
de celui de A) et $DB57 (affiche un 
espace). 

- $D81D : appel de la routine $B1. 
qui va nous retourner le premier ca- 
ractere de 1' instruction. 

Cette routine CHRGET met a jour le 
pointeur de programme et va lire 
dans la zone de stockage du pro- 
gramme Applesoft les octets de celui- 
ci. Elle joue un role fondamental 
dans le fonctionnement de l'Apple- 
soft "standard" et peut egalement 
rendre de grands services pour l'ap- 
pel de routines en langage machine a 
partir du Basic. Aussi en analyserons 
nous en detail le contenu, au moyen 
du listing ci-dessous. 



00B1 - 


Ei 


B3 


INC 


«e3 


00B3- 


DO 




BNE 


• 0097 


0085- 


E4 


B9 


INC 


%B9 


00B7- 


AO 


05 02 


LOO 


*0205 


00BA- 


C ? 


3A 


CMP 


«* 3A 


00BC- 


SO 


OA 


8C3 


*00C3 


00BE- 


c? 


23 


CMP 


«*20 


ooco- 


FO 


EF 


BE3 


*00B1 


0OC2- 


33 




SEC 




00C3- 


£9 


30 


SBC 


»*30 


00C5- 


33 




sec 




00C4- 


£9 


DO 


sec 


««D0 


00C3- 


60 




RTS 




OOC?- 


30 




?->-? 




00CA- 


JF 




??? 




00C3- 


C7 




in 




00CC- 


52 




??? 




ooco- 


00 




BRK 




00CE- 


00 




8P.K 




00CF- 


00 




BPK 





-$B1 a $B7 : incrementation du 
pointeur de programme $B8-$B9. 
selon une methode deja decrite dans 
les articles precedents (l'octet de 
poids fort est incremente lorsque 
l'octet de poids faible passe a 0). et 
chargement de l'octet pointe par 
$B8-$B9 dans l'accumulateur 
Notez bien ici I'astuce des program- 
mers qui ont place le pointeur a 
l'interieur meme de la routine, juste 
apres le code de l'instruction LDA. 
Ainsi. la routine se modifie elle- 



meme : on aura toujours en $B8- 
$B9 I'adresse de l'octet que Ton veut 
lire et que I on retrouvera dans l'ac- 
cumulateur apres le LDA. 
Dans notre listing, l'instruction en 
$B7 est LDA $0205 ; cela provient 
de ce que la liste a ete effectuee en 
mode immediat. $B8-$B9 pointant 
alors toujours sur le buffer d'entree- 
clavier, situe aux adresses $200 a 
$2FF. Apres un RUN. en revanche. 
$B8-$B9 est initialise a I'adresse de 
debut du programme moins 1 ; dans 
la situation normale. on aura done 
en $B7 l'instruction LDA $0800. En- 
suite I'adresse dont on charge le 
contenu dans A peut varier de deux 
facons : soit sequentiellement a cha- 
que appel de $B1 (qui incremente 
$B8-$B9). soit par manipulation di- 
recte (calcul) des valeurs de $B8- 
$B9. comme on l'a vu plus haut aux 
adresses $D7FC a $D803. 
II est important de noter que chaque 
modification de $B8-$B9 revient en 
fait a changer l'octet sur lequel por- 
tera lanalyse de I'interpreteur de 
l'Applesoft. soit a l'interieur de l'exa- 
men d une instruction, soit au mo- 
ment de Texecution d une nouvelle 
instruction (voir les tests du debut de 
la routine $D7D2). Si Ton veut par 
consequent ajouter des instructions a 
l'Applesoft. sans le perturber outre 
mesure (le seuil de tolerance etant 
marque par l'apparition d'une SYN- 
TAX ERROR), il convient de verifier 
que les valeurs de $B8-$B9 et de 
l'accumulateur sont convenables 
pour le Basic avant de lui rendre la 
main. Cest un point sur lequel nous 
reviendrons plus loin au travers de 
quelques exemples. 

— $BA-$BC : le contenu de l'accu- 
mulateur. e'est-a-dire l'octet que I on 
vient de lire dans le programme, est 
compare a #$3A. code ASCII du 

forme sous laquelle sont stockes 
les signes ":" que vous utilisez pour 
separer plusieurs instructions sur une 
meme ligne. Le test BCS provoque 
le branchement en $C8 (RTS) si A 
est superieur ou egal a #$3A. ce qui 
sera notamment le cas pour les 
tokens de l'Applesoft et les lettres 
constituant le premier caractere d'un 
nom de variable 

- $BE-$CO: #$20 est le code 
ASCII de T espace. forme sous la- 
quelle il est stocke dans un pro- 
gramme. Si le caractere que I on 
vient de lire est un espace. on 
l'ignore pour passer directement au 
caractere suivant en incrementant le 
pointeur de programme. 

Cela ne signifie pas toutefois. par 
exemple. que les espaces places 
entre guillemets apres un PRINT ne 
seront pas pris en compte, puisque 
vous pouvez constater aisement 
quits sont respectes a l'affichage ou 
a l'impression. Cest en effet la rou- 
tine qui effectue le traitement corres- 



pondent a un PRINT qui se charge 
de lire la donnee a imprimer et d'uti- 
liser les espaces. et le branchement 
sur cette routine, comme nous le ver- 
rons plus loin, s'effectuera toujours 
avant que Ton ait rencontre et ignore 
le premier espace dans une chaine 
de caracteres en le lisant par 
CHRGET ($B1). Ne sont done ainsi 
effectivement delaisses que les espa- 
ces lus dans un programme dans le 
cadre de Interpretation destructions 
pour lesquelles ils ne sont pas signifi- 
catifs (espaces separant l'instruction 
DATA du premier item de DATA, 
par exemple). 

— $C2 a $C6 : nous sommes dans le 
cas ou le contenu de l'accumulateur 
est inferieur a #$3A et different de 
#$20. On procede alors a deux 
soustractions successives, mais a Tis- 
sue desquelles le contenu de l'accu- 
mulateur n'aura pas change. 
En effet, si l'on additionne #$30 (48 
en decimal) et #$D0 (208 en deci- 
mal), on obtient #$100 (256). On 
ne manipule ici que des octets, rai- 
son pour laquelle on procede a la 
soustraction en deux etapes. mais 
puisque la retenue est toujours re- 
mise a 1 (SEC) avant T operation, on 
ne retire finalement de l'accumula- 
teur que le poids faible de # 
$30+#$D0. soit 00. et l'accumula- 
teur retrouvera done sa valeur initiale 
a Tissue du calcul. 

En fait, cette manipulation apparem- 
ment neutre permet d'etablir une dif- 
ference entre les chiffres (codes 
ASCII de #$30 a #$39) et les autres 
caracteres de code ASCII inferieur a 
#$30 : 

• Si A est superieur ou egal a #$30. 
A - #$30 sera inferieur a #$D0 
en valeur absolue. Par suite, a Tis- 
sue de la soustraction (A - #$30) 
- #$D0. le bit de retenue C sera 
positionne a (voir l'article consa- 
cre a SBC pour le resultat de la 
soustraction d un octet a un autre 
plus petit que lui). 

• Si A est inferieur a #$30. A - 
#$30 sera superieur ou egal a 
#$D0 en valeur absolue. et le bit 
C sera positionne a 1 apres (A - 
#$30) - #$D0. 

En resume, lorsque Ton sort de la 
routine CHRGET, la valeur du bit C 
depend de la nature du caractere 
que Ton vient de lire dans le pro- 
gramme : 

• C = l sfA est superieur ou egal a 
#$3A (:), puisque Ton sort au test 
BCS de I'adresse $BC 

• C=0 si A contient un chiffre 
(codes ASCII #$30 a #$39) 

• C=l si A contient un caractere de 
code ASCII inferieur a #$30 

Ces differences seront ensuite exploi- 
ters par I'interpreteur et les routines 
correspondant a chaque instruction 
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de I'Applesoft pour en verifier la 
bonne syntaxe. 

Par ailleurs, le bit Z joue egalement 
un role, sur lequel nous reviendrons, 
en sortie de la routine $B1. Deux cas 
peuvent conduire a Z=l : 

• Le caractere lu est ce qui 
amene Z=l lors de 1'instruction 
CMP #$3A. 

• Le caractere lu est un (fin de 
ligne Applesoft), ce qui provoque 
egalement Z=l a Tissue de la der- 
niere soustraction SBC #$D0, 
puisque le resultat obtenu alors est 
a nouveau 0. 

Maintenant que nous savons ce qui 
se passe dans la routine CHRGET, 
nous pouvons ressortir de notre JSR 
$B1 de l'adresse $D81D et retourner 
dans l'interpreteur a l'adresse sui- 
vante, soit $D820. Celle-ci nous di- 
rige aussitot vers une autre sous-rou- 
tine par un JSR $D828. 

- $D828 : l'accumulateur contient 
toujours 1' octet que Ton vient de lire 
dans le programme par le JSR $B1. 
Les indicateurs du registre d'etat sont 
positionnes en fonction des resultats 
obtenus dans cette meme routine 
$B1. En particulier. le bit Z est a 1 si 
1' octet lu est ou ":" (voir ci-dessus). 
Le test BEQ branche done sur 
$D857 (RTS) si Ton vient de lire 
l'octet de fin d'une ligne (0) ou le se- 
parateur destructions (:). Dans l'un 
ou 1' autre cas, on revient done de 
suite en $D823 pour passer a 1' ana- 
lyse de 1'instruction suivante, si elle 
existe, par un JMP $D7D2. 

- $D82A-$D82C : les tokens de 
I'Applesoft vont de #$80 a #$EA. 
De plus, si e'est un token que Ton 
vient de lire par $B1, le bit C est a 1 
et, par 1'instruction SBC #$80, on 
ne retire done que #$80 de la valeur 
du token (I'oppose de la retenue 
vaut 0). Si l'accumulateur contient 
un token, on aura done toujours 
C=l apres la soustraction, d'ou 
echec du test BCC. 

On ira ainsi en $D83F si A n'est pas 
un token (nom de variable, cons- 
tante, caractere de controle...) pour 
sauter en $DA46, routine de I'Apple- 
soft traitant ('affectation des valeurs 
aux variables (e'est elle qui provo- 
quera par la suite une erreur de syn- 
taxe si cette derniere n'est pas cor- 
recte). 

- $D82E-$D830: e'est un token 
que Ton a lu par $B1 et, apres le 
SBC #$80, l'accumulateur contient 
une valeur comprise entre et 
#$6A. Apres CMP #$40, on aura 
C=l si A est superieur ou egal a 
#$40; dans ce cas, BCS branche sur 
$D846 qui va nous envoyer SYN- 
TAX ERROR. 

Si Ton regarde la liste des tokens, on 
constate que le dernier qui passera 
les tests des adresses $D82A a 
$D830 sans provoquer d' erreur est 



NEW (code #$BF). Tous les tokens 
dont le code est superieur a #$BF 
sortiront en erreur au BCS de 
l'adresse $D830. Or, les dits tokens 
(par exemple TO. FN, THEN...) sont 
en quelque sorte "non autonomes", 
en ce sens qu'ils doivent toujours 
etre precedes d un autre et ne vien- 
nent jamais au debut d'une instruc- 
tion. C'est done la routine de traite- 
ment du token "maTtre" (par 
exemple FOR, DEF, IF...) qui se 
chargera ulterieurement de les "recu- 
perer" dans le programme. Ceci ex- 
plique pourquoi l'interpreteur envoie 
une SYNTAX ERROR si Ton arrive 
en $D828. alors que Ton commence 
seulement l'analyse d'une instruction, 
avec un token de code superieur a 
#$BF. 

- $D832 a $D83B : l'accumulateur 
contient le code d'un token valable 
en debut destruction, mais diminue 
de #$80, soit une valeur comprise 
entre et #$3F. 

A partir de $D000 sont stockees sur 
deux octets, dans l'ordre poids faible 
/ poids fort, les adresses de debut, 
moins 1, des routines machine cor- 
respondent au traitement realise par 
chaque token de I'Applesoft. En 
$D000 - $D001. par exemple, on 
trouve l'adresse moins 1 de la rou- 
tine du premier token dans l'ordre 
des codes, e'est-a-dire END; en 
$D002 - $D003, on trouve l'adresse 
moins 1 de la routine du second 
token FOR... 

Prenons 1' exemple concret de 1'ins- 
truction HOME dont le token est 
#$97. On obtient son numero dans 
la liste des tokens en lui retirant 
#$80, ce qui nous donne #$17. 
Comme chaque adresse de routine 
occupe deux octets, il faut multiplier 
#$17 par 2 pour savoir a quelle dis- 
tance (index) du debut de la table 
nous trouverons la routine de 
HOME. En effet, la routine du pre- 
mier token (dont le numero dans la 
liste est 0) est donnee en $D000+ 
et $D000+1. la routine du second 
(numero 1) en $D000+2 et 
$D000+3. celle du troisieme (nu- 
mero 2) en $D000+4 et $D000+5 
... De fagon generale, si T est le 
token d'une instruction Applesoft, N 
= T — #$80 est son numero dans la 
liste des tokens et si A = 2 * N, on 
trouvera l'adresse de la routine ma-, 
chine correspondante (toujours dimi- 
nuee de 1) aux adresses $D000+A 
et $D000+A+1. Dans le cas de 
HOME. A = 2 * #$17 = #$2E. 
Aux adresses $D02E et $D02F on 
trouve 57 FC, ce qui nous donne 
comme adresse finale $FC58 apres 
ajout de 1. Or $FC58 (ou encore 
-936 en decimal) est l'adresse de la 
routine du moniteur qui efface tout 
l'ecran et positionne le curseur en 
haut et a gauche. On voit ainsi que 
HOME, par I'intermediaire de l'inter- 



preteur. permet finalement d'appeler 
une routine en langage machine qui 
assure le traitement voulu. en I' oc- 
currence le nettoyage de l'ecran. 
Revenons maintenant aux instruc- 
tions de l'interpreteur qui realisent 
cet appel de routine. Quand on ar- 
rive en $D832, on a en fait dans 
l'accumulateur le numero du token 
dans la liste et, par ASL, on multiplie 
ce numero par 2 avant de le charger 
dans le registre Y par TAY. Par LDA 
$D001, Y et PHA, on empile l'octet 
fort de l'adresse de la routine; par 
LDA $D000, Y et PHA, on empile 
son poids faible. Plus precisement. 
on a maintenant au sommet de la 
pile l'adresse de la routine moins 1. 

- $D83C : par JMP $B1. on va lire 
le caractere qui suit le token que Con 
vient d' interpreter. De plus, comme 
on utilise JMP et non JSR, le som- 
met de la pile est toujours constitue 
par l'adresse de la routine du token 
moins 1. 

Par suite, lorsqu'on sort de CHRGET 
par RTS, le processeur depile les 
deux octets du sommet, leur ajoute 1 
(voir articles precedents) et saute a 
l'adresse ainsi obtenue. On se bran- 
che done sur la routine de traitement 
du token, avec dans l'accumulateur 
le caractere qui suit le-dit token dans 
le programme. Le tour est joue et 
cela vous explique pourquoi la table 
debutant en $D000 contient les 
adresses des routines diminuees de 1 
et non les adresses exactes. 
N'oublions pas cependant que Ton 
est toujours sous le controle du JSR 
$D828 de l'adresse $D820: lors- 
qu'on arrive dans la routine du 
token, on a 22 D8 au sommet de la 
pile (adresse de retour $D823, dimi- 
nuee de 1 et empilee avec le poids 
faible au sommet). D'une facon ou 
d'une autre, e'est-a-dire soit par un 
RTS. soit par un JMP $B1 pour utili- 
ser le RTS de l'adresse $C8 par 
exemple, cette adresse sera utilisee 
au retour de la routine du token et 
Ton reviendra en $D823 pour execu- 
ter un JMP $D7D2 et aborder l'ana- 
lyse d'une autre instruction. Rappe- 
lons qu'il faut alors, pour eviter les 
erreurs, que $B8-$B9 pointe effecti- 
vement sur un ou un Dans le 
cadre de l'ajout d' instructions a I'Ap- 
plesoft, le fait que leur analyse se 
fasse a Tissue d'un JSR $D828 et 
qu'il faille en revenir en pointant sur 
ou ": " peut reclamer certaines pre- 
cautions, qu'illustreront les exemples 
donnes plus loin. 

- $D849 a $D857 ; bien quelle ne 
fasse pas directement partie de notre 
sujet, precisons que cette routine cor- 
respond au traitement effectue par 
T instruction RESTORE. Elle met le 
pointeur de DATA ($7D-$7E) a 
l'adresse de debut du programme 
moins 1 (contenu de $67-$68 dimi- 
nue de 1). 
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Utilisation de & 

Rappelons tout d'abord que & est 
une instruction de 1* Applesoft, dont le 
token est code #$AF. II s'agit done 
d'un token valide en debut destruc- 
tion, et l'acces aux routines machine 
correspondant a & suivra le meme 
processus que pour tout autre token. 
C'est par le biais de $D7D2 et de la 
sous-routine debutant en $D828 que 
se fera l'appel. 

Dans la table $D000 des adresses de 
routines, les valeurs donnees pour & 
sont F4 03, et 1' utilisation de & 
conduira finalement a un branche- 
ment sur $3F5. C'est a ce niveau 
que peut intervenir le programmeur. 
en mettant aux adresses $3F5 - $3F6 
- $3F7 une instruction JMP $XXYY. 
soit 4C YY XX en langage machine, 
ou YY designe le poids faible de 
I'adresse ou commence la routine 
d'execution des instructions prece- 
des de &, et XX le poids fort de 
cette meme adresse. 
Par exemple. si Ton met en $3F5 les 
codes 4C 00 03, 1' interpreter de 
1'Applesoft sautera a I'adresse $300 
chaque fois qu'il rencontrera un & 

Version & : lisa 1.5 



dans le programme. Si Ton met 4C 
00 80. le saut se fera a I'adresse 
$8000... La routine concernee (en 
$300, ou en $8000...) doit alors se 
charger de lire la suite de 1' instruction 
dans le programme et de realiser le 
traitement demande. 

Exemple ({'application 

Supposons que le fonctionnement de 
certaines instructions de l'Appiesoft 
ne soit pas conforme a nos voeux et 
que, par ailleurs, nous voulions lui en 
adjoindre quelques autres. Par hypo- 
these, nous savons comment ecrire 
en assembleur les routines necessai- 
res et nous utiliserons & pour 
contraindre 1'Applesoft a leur faire 
appel chaque fois que bon nous 
semblera... 

La liste des adaptations a realiser est 
la suivante : 

• PRINT devra toujours effacer la 
ligne sur laquelle on veut afficher 
quelque chose avant de proceder 
a cet affichage. L' instruction sera 
&PRINT et utilisera exactement la 



meme syntaxe que PRINT 
(&PRINT A. &PRINT ZZ$. 
&PRINT 'TEXTE"; ...). 

• Dans les instructions GET et 
INPUT, rebaptisees &GET et 
&INPUT, on refusera tout carac- 
tere de controle a l'exception de 
RETURN. Le reste de la syntaxe 
sera inchange. 

• L'instruction HOME. soit 
&HOME, effacera tout l'ecran, 
quelles que soient les limites de la 
fenetre. 

• L'instruction NEW. soit &NEW. 
realisera en revanche le traitement 
d'un HOME standard, c'est a dire 
effacement dans les limites de la 
fenetre. 

• L'instruction LET, soit &LET, 
fonctionnera comme un PRINT 
precede d'un double beep. Ainsi, 
&LET "TEXTE", par exemple, 
produira un double beep et affi- 
chera TEXTE a l'ecran. 



Voyons maintenant comment pro- 
grammer tout cela en analysant le lis- 
ting source de la routine donne ci- 
apres. 
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0338- CO FF DO OB AO IB 84 33 

0390- AO FD 84 39 20 EA 03 23 

0398- 20 Bl 00 4C 10 03 20 B7 

03A0- 00 BA E3 E8 9A 4C 20 DS 

LOAD INI 16.2 .TEST 
]LIST 

5 PRINT CHRS < 4 J "BRUN INI 16.2. OBJ" 

10 TEXT : & HOME : FOR I = 1 TO 1 : & 

PRINT " *************************** 
************": NEXT : VTAB 2: HTAB 
1: Si PRINT " REECRITURE SUR CETTE 
LI ONE" ; 

20 & FRINT : & PRINT " ENTRE2 QUELQUE C 
HOSE";: & INPUT " ? " ; Z* : & PRIN 
T " ENCORE EN 'GET'";: & 6ET Y* : P 
RINT : & PRINT Z*,Y$: & PRINT ;: 
t< GET Z* 

30 POKE 34,5: POKE 33,20: & HOME : VTAB 
20: HTAB 1: & LET "MESSAGE BRUYA 

NT 

.";: & GET Z%: PRINT : TEXT : FOR 
I = 1 TO 10: PRINT " ************* 
*************************" : NEXT 
40 POKE 34,18: POKE 33,10: POKE 35,22: V 
TAB 19: & PRINT " AAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAA" : GET Z* : & NEW : GET 
2%: & HOME 



- Lignes 2 a 8 : pour que les ins- 
tructions & arrivent bien sur notre 
routine, il faut mettre en place le vec- 
teur de l'&, c'est-a-dire donner a 
partir de l'adresse $3F5 un JMP a 
l'adresse voulue. Plutot que d'utiliser 
des POKEs en Basic, nous confierons 
cette tache aux toutes premieres ins- 
tructions de la routine assembleur. 
On met tout d'abord #$4C (code de 
JMP) en $3F5 (lignes 2 et 3). L' as- 
sembleur LISA 1.5 utilise ici offre en 
outre deux directives pour calculer 
les poids faible et fort d'adresses 
symboliques dont on ne connait pas 
forcement l'implantation exacte au 
moment de l'ecriture du source, ou 
dont l'implantation peut etre modi- 
fied en fonction de revolution du 
source lors de sa mise au point. DEB 
etant F etiquette qui marque le debut 
de la routine de traitement, #DEB 
donnera le poids faible de son 
adresse calculee au moment de Fas- 
semblage et DEB nous donnera son 
poids fort. Tous les assembleurs pro- 
posent de telles directives, avec des 
syntaxes legerement differentes le cas 
echeant, mais que vous trouverez 
toujours dans la documentation de 
celui que vous utilisez (par exemple 
#< pour le poids faible et #> pour 
le poids fort en BIG MAC). 
On met done le poids faible de 
l'adresse en $3F6 (lignes 4 et 5) et 
son poids fort en $3F7 (lignes 6 et 
7). En regardant la liste d'assem- 
blage. on constate que DEB corres- 
pond finalement a l'adresse $310 et 
que ce sont bien #$10 et #$03 qui 
sont stockes en $3F6 et $3F7. 



On sort ensuite par RTS pour revenir 
au Basic. Si le code objet de la rou- 
tine est sauve sur disquette. la mise 
en place du vecteur & pourra se faire 
simplement par un BRUN du fichier 
concerne en debut de programme 
Applesoft. L' ensemble du code sera 
ainsi charge en memoire mais l'exe- 
cution s'arretera au RTS de la ligne 
8, Faeces au reste de la routine, a 
partir de DEB. devant ulterieurement 
resulter de l'emploi de & (on aura en 
$3F5 : JMP $310 apres le BRUN). Si 
vous rentrez ce code sans le sauver 
sur disquette. F initialisation de & en 
debut de programme pourra se faire 
au moyen de CALL 768. 

— Ligne 9 : il est important de se 
rappeler ici que Fon arrive en DEB a 
Fissue de Fanalyse d'un token. C'est 
done le JMP $B1 de l'adresse 
$D83C, au sein de Finterpreteur. qui 
nous amene en $310. De ce fait, 
Faccumulateur contient deja le carac- 
tere qui suit & dans le programme, 
caractere sur lequel pointe $B8-$B9. 
et les indicateurs du registre d'etat 
sont positionnes en fonction de la 
nature du caractere lu par CHRGET. 
Le test BEQ sera done positif si Fon 
a dans Faccumulateur un ou un 
ce qui marque la fin d'une ins- 
truction et la necessite de ressortir de 
la routine. On reviendra alors en 
$D823. puis en $D7D2. et $B8-$B9 
pointant sur ou l'execution du 
programme Applesoft se poursuivra 
sans probleme. 

Lignes 10 a 17 : #$BA est le token 
de PRINT et si Faccumulateur 



contient #$BA nous sommes done 
en train d'analyser une instruction 
.&PRINT. Dans ce cas, on sauve la 
position horizontale du curseur (sto- 
ckee en $24) en $6, on fait un saut a 
la routine du moniteur qui efface la 
fin de la ligne (JSR $FC9C, equiva- 
lent du CALL -868 que vous pou- 
vez faire en Basic), on retablit ensuite 
la position du curseur en $24 et on 
passe finalement en M0. 
Nous reviendrons plus loin sur le trai- 
tement realise en M0, mais on peut 
noter des maintenant que l'execution 
de &PRINT n'est pas complete a Fis- 
sue des lignes 10 a 17, puisque Fon 
a bien efface la fin de la ligne mais 
encore rien affiche. Dans la mesure 
ou ce serait perdre notre temps que 
de re-ecrire les routines de PRINT de 
FApplesoft, tout le probleme consis- 
tera, lorsque nous serons en M0, a 
faire en sorte que Finterpreteur re- 
prenne la main et traite le PRINT 
comme un PRINT standard du Basic, 
sans generer de message d'erreur. 

-Lignes 18 a 27 : #$84 est le token 
de INPUT et #$BE celui de GET. Si 
Fon recontre une instruction &INPUT 
ou &GET, le traitement consiste a 
changer le vecteur de la routine 
d'entree de caracteres utilisee par le 
systeme (l'adresse de cette routine 
est donnee en $38-$39), comme 
nous Favons deja fait souvent dans 
les exemples illustrant les articles 
d'initiation precedents. Le JSR $3EA 
(ou encore CALL 1002) permet de 
faire prendre en compte cette modifi- 
cation par le DOS, qui supervise les 
entrees - sorties lorsqu'il est charge. 
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Une fois le vecteur change, on passe 
en MO. La encore, le traitement reel 
de INPUT ou GET reste a faire, et 
nous en laisserons le soin a 1' Apple- 
soft... 

- Lignes 28 a 35 : il s'agit de la rou- 
tine d'entree que nous voulons faire 
utiliser par le Basic dans ses INPUT 
et GET. Elle est particulierement sim- 
ple et vous n'aurez aucune peine a 
1' analyser. 

- Lignes 36 a 51 : #$97 est le 
token de HOME. On empile les va- 
leurs des limites de fenetre, stockees 
aux adresses $20 a $23 (lignes 38 a 
42). JSR $FB39 realise le meme trai- 
tement que l'instruction TEXT et JSR 
$FC58 realise I'effacement de tout 
l'ecran, puisque TEXT remet les limi- 
tes de fenetre a leurs valeurs maxi- 
males. On recupere ensuite les limi- 
tes de fenetre dans la pile (lignes 45 
a 50) et on saute en S6. 

Notez que, cette fois-ci, le traitement 
de rinstruction est termine et on de- 
vrait done pouvoir passer a l'instruc- 
tion suivante du programme. 

- Lignes 52 a 55 : #$BF est le 
token de NEW. On execute un sim- 
ple HOME standard (JSR $FC58) et, 
la encore, on doit passer a l'instruc- 
tion suivante. 

- Lignes 56 a 61 : #$AA est le 
token de LET. On fait deux appels 
consecutifs a $FBDD (emission d'un 
beep) puis on charge l'accumulateur 
avec le token de PRINT car il fau- 
drait maintenant faire afficher le mes- 
sage par l'Applesoft, e'est-a-dire le 
tromper sur la nature de 1' instruction 
et lui laisser finir le travail. 

- Lignes 62 a 73 : e'est la que Ton 
arrive pour les instructions & dont le 
traitement est acheve par notre seule 
routine. Petite complication interme- 
diaire : remettre la routine d'entree 
standard ($FD1B) en $38-$39 si Ton 
est en mode immediat (signale par 
un #$FF a l'adresse $76). Ainsi. lors- 
que le programme Applesoft est ter- 
mine. vous pourrez taper par exem- 
ple &HOME en mode immediat pour 
retablir la routine d'entree standard 
et recouvrer 1' usage normal des ca- 
racteres de controle. 

Si Ton est toujours en mode pro- 
gramme, par contre, il faut passer a 
l'instruction suivante. Pour ce faire, 
on lit le caractere suivant (JSR $B1) 
et on saute en DEB. Si la syntaxe est 
correcte, on doit avoir alors dans 
l'accumulateur un ou un ":" et le 
test BEQ de DEB nous ramenera fi- 
nalement en $D7D2 ou l'execution 
du programme se poursuivra correc- 
tement. 

- Lignes 74 a 79 : on arrive en MO 
dans le cas des instructions &PRINT, 
&INPUT ou &GET. Le JSR $B7 
permet de remettre dans l'accumula- 



teur. qui a pu etre modifie plus haut, 
le token de PRINT. INPUT ou GET. 
puisque Ton relit l'adresse pointee 
par $B8-$B9, mais sans modifier ce 
pointeur. 

On arrive en Ml dans le cas de 
&LET. Cette fois, on ne relit pas le 
token, car il faut au contraire le faire 
passer pour un PRINT, dont on a 
charge le token dans l'accumulateur. 
II convient maintenant de rappeler 
que nous sommes arrives en DEB a 
Tissue du JMP $B1 de l'adresse 
$D83C et que nous restons done 
sous le controle du JSR $D828 dont 
l'adresse de retour occupe le sommet 
de la pile. Nous voulons faire repren- 
dre l'execution de PRINT, INPUT ou 
GET par l'Applesoft, comme s'il 
s'agissait d' instructions "normales" 
saisies par l'interpreteur dans le pro- 
gramme. L' ideal serait done de venir 
se brancher en $D820, puisque e'est 
la que commence dans l'interpreteur 
1' analyse d'un token qu'il vient de 
lire et de charger dans l'accumulateur 
par le JSR $B1 de l'adresse $D81D. 
Pour que tout se passe bien par la 
suite, il faut done effacer la trace du 
JSR $D828 dont nous ne pouvons 
revenir par RTS (sinon, le token 
n'est pas interprete, $B8-$B9 ne 
pointe pas sur ou ":" et le resultat 
final est SYNTAX ERROR) et que 
nous ne pouvons pas davantage lais- 
ser au sommet de la pile avant de 
sauter en $D820 (sinon, la presence 
d'une adresse de retour excedentaire 
dans la pile finit par provoquer un 
mauvais branchement en retour de 
routine). C'est pourquoi on remonte 
le sommet de la pile de deux posi- 
tions (TSX - INX - 1NX - TXS), afin 
de realiser 1' equivalent d'un POP et 
de faire "sauter" l'adresse de retour 
du JSR $D828 a l'exterieur de la 
pile. On peut alors retourner sans ris- 
que a l'interpreteur en $D820 et lui 
laisser terminer le travail. 

Lorsque vous aurez saisi et sauve 
cette routine de traitement d' instruc- 
tions &. le programme de demons- 
tration qui l'accompagne vous per- 
mettra d'en tester le fonctionnement. 

Manipulation de 
CHRGET 

L'appel de routines machine par & 
passe par l'interpreteur de l'Applesoft 
et comporte certaines contraintes : 
mise en place du vecteur en $3F5, 
respect du controle exerce par l'inter- 
preteur sur l'analyse des instructions, 
necessite, en cas de modification du 
traitement realise par certaines ins- 
tructions du Basic, de modifier les 
programmes existants (remplacer 
ainsi les PRINT par des &PRINT...). 
II est possible de proceder autrement. 
et de prendre meme le pas sur l'in- 
terpreteur. en exploitant le fait que la 
routine d'acquisition des caracteres 



du programme Applesoft, CHRGET 
($B1), se trouve en RAM et peut 
done subir une modification de la 
part du programmeur. Apres avoir 
charge le caractere pointe par $B8- 
$B9 dans l'accumulateur en $B7, et 
plutot que de retourner de suite a 
l'interpreteur, il faut alors placer un 
saut dans une routine "personnelle", 
une sorte de mini-interpreteur, qui 
traitera nos instructions en priorite et 
en exclusivite. 

La liste ci-dessous donne un exemple 
de CHRGET modifie: en $BA est 
implante un JMP $300, et en $300 
devra commencer notre mini-inter- 
preteur. Nous verrons qu'il faut veil- 
ler dans cette routine a respecter le 
traitement normal de CHRGET pour 
les caracteres qui ne nous concernent 
pas (comparaison a #$3A, soustrac- 
tions de #$30 et #$D0...) afin de ne 
pas perturber l'Applesoft. 
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Pour mettre en place ce JMP, il est 
exclu d' utiliser des POKEs a partir du 
Basic : les POKEs sont en effet inter- 
pretes, bien sur, et lus en memoire 
par des appels a $B1. Si vous modi- 
fiez par POKEs la routine qui est en 
train de lire ces memes POKEs, il est 
evident que vous n'arriverez jamais 
au bout ! 

Vous disposez en fait de trois solu- 
tions : 

• En mode immediat, mettre le saut 
en place a partir du moniteur en 
tapant par exemple BA: 4C 00 
03. Cette solution n'est a retenir 
que pour un premier test. 

• Apres avoir rentre le saut sous 
moniteur, sauver les codes corres- 
pondents dans un fichier par 
BSAVE Fichier, A$BA. L3. Vous 
pourrez alors le recuperer simple- 
ment au debut de vos program- 
mes Applesoft par BLOAD Fichier. 
Pour revenir facilement au Basic 
standard, il est alors pratique de 
disposer d'un second fichier, 
sauve de la meme facon. mais 
contenant les 3 codes du 
CHRGET "normal". 

• Utiliser une petite routine ma- 
chine, chargee et executee en 
debut de programme, pour mettre 
les codes en place (le source 
d'une telle routine serait par 
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exemple : LDA #$4C - STA $BA 
- LDA #$00 - STA $BB - LDA 
#$03 - STA $BC - RTS). Cette 
mSthode est moins pratique que la 
precedente, mais elle sera inevita- 
ble si vous travaillez sous ProDos, 
qui ne prend pas en compte le 
chargement d'un fichier directe- 
ment dans CHRGET. 

Exemple d'application 

Nous reprendrons exactement le 
meme probleme que celui traite plus 
haut au moyen de &. Cette fois, 
l'appel de routines se fera par un 
JMP $300 implante en $BA. II n'est 
pas necessaire de modifier la syntaxe 
des instructions Applesoft concernees 
(nous interpreterons les PRINT, GET 
et autres avant meme que 1' Applesoft 
ne le fasse). 

Voyons maintenant quelles sont les 
differences entre cette nouvelle rou- 
tine d' interpretation des instructions 
et la precedente. 

- Ligne 9 (PRINT) : il n'y aura plus 
de JSR $B7 en fin de routine et on 
recharge directement l'accumulateur 
avec le token de PRINT. 

- Lignes 15 et 21 (INPUT et GET) : 
meme chose que ci-dessus. On em- 
pile le token de 1' instruction avant de 
modifier A et on le depile avant de 
passer a la fin de la routine. 

- Ligne 46 (HOME) : le traitement 
de 1' instruction est assure totalement 
par notre routine et termine lorsque 
Ton arrive a cette ligne 46. II s'agit 
done cette fois de passer a 1' instruc- 
tion suivante et d'acquerir ie carac- 
tere qui suit le token de HOME dans 
le programme (normalement ou 
":"). Nous sommes toujours sous le 
controle du JSR $B1 de I'adresse 
$D81D. dont I'adresse de retour est 
au sommet de la pile. Par JMP $B1 
(et non JSR $B1) on lit le caractere 
suivant en mettant a jour le pointeur 
de programme et, au prochain RTS. 
on revient en $D820. Comme A 
contient normalement ou on 
ressort de $D828 par le BEQ $D857 
et on passe a rinstruction suivante 
(JMP $D7D2) en pointant sur un ca- 
ractere valide. 

- Ligne 50 (NEW) : meme proces- 
sus que ci-dessus. 

- Lignes 56 a 72 (sortie apres inter- 
pretation de nos instructions, ou sor- 
tie directe si le caractere ne nous 
conceme pas). Pour que tout se 
passe bien, il faut effectuer les 
memes traitements que le CHRGET 
"normal" dans sa partie $BA a $C8. 
A partir de $BE. CHRGET n'est plus 
affecte par la modification des codes 
et Ton pourra done le reutiliser tel 
quel. 

II nous manque done le CMP #$3A 
et le branchement alternatif BCS qui 
en resulte, que nous remettons aux 



lignes 56 et 57. Si le test BCS est 
positif. on doit quitter la routine sans 
autres manipulations de A ou du re- 
gistre d'etat mais il nous faut malgre 
tout retablir la routine d' entree stan- 
dard en $38-$39 si Ton est en mode 
immediat (registre d'etat et accumu- 
lates sont alors empiles avant modi- 
fication et depiles avant RTS). Dans 
le cas de BCS AO. le RTS de la ligne 
72 nous renvoie en $D820. 
Si le test BCS echoue, il faut en re- 
vanche poursuivre les manipulations, 
ce que nous ferons. apres retablisse- 
ment eventuel de la routine d'entree, 
par un JMP $BE. Dans ce cas, e'est 
le RTS de I'adresse $C8 qui nous ra- 
menera en $D820. 

Notez bien ce qui se passe dans ce 
systeme lorsqu'on utilise un token 
pour realiser un traitement prepara- 
toire (PRINT. GET INPUT ou LET) 
et que 1' execution de la routine du 
token est laissee a I'Applesoft lui- 
meme. Le traitement preparatoire est 
cette fois-ci realise avant que ne 
commence l'interpretation du token 
par le Basic ("entre" les adresses 
$D81D et $D820) et Ton rend en- 
suite la main a l'interpreteur comme 
s'il ne s'etait rien passe (l'accumula- 
teur contient le token, sur lequel 
pointe $B8-$B9 et les indicateurs du 
registre d'etat sont posirionnes en 
consequence). II n'est done plus ne- 
cessaire de gerer la pile pour tromper 
l'interpreteur sur le point auquel il est 
parvenu dans son analyse. 

Vous trouverez ci-apres un petit pro- 
gramme de demonstration, compara- 
ble a celui utilise avec &. II est ecrit 
avec des instructions Applesoft tout a 
fait banales, et vous pourrez done 
l'executer sous controle du CHRGET 
normal ou sous controle du 
CHRGET modifie. Ne soyez pas sur- 
pris toutefois si. dans la premiere hy- 
pothese. le resultat obtenu n'est pas 
tout a fait conforme aux esperan- 
ces... 
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)LI ST : 1NI1 4 . 1 .TEST 

10 TEXT : HOME : FOR 1 = 1 TO 10: PRINT 
■#•»«««•••*»*«##«»#**»<•»»*•*••**** 

.».»•••.: NEXT : VTAB 2: HTAB I: PR 
INT "REECRITURE SUR CETTE LIGNE" ; 

20 PRINT : PRINT -ENTRE2 OUELOUE CHOSE" I 
! INPUT • ? ■;?*: PRINT "ENCORE EN 
'GET' " ; : GET Y«: PRINT I PRINT Z« 
,Y«i PRINT i : GET 2t 

30 POKE 34,5: POKE 33,20: HOME : VTOB 20 

: HTAB 1: LET "MESSAGE 8RUYANT 

" i : G 

ET Z»: PRINT : TEXT : FOR I - 1 TO 
10: PRINT ■••••••••»»•«••••••«»•» 

••»•••»••••••»•«": NEXT 

40 POKE 34,18: POKE 33,10: POKE 35,22: V 
TAB 19: PRINT " AAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO 
AAAAAAAA" : GET Z« : NEUI : GET Z»: H 
OME 
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Personnalisez vos disquettes Macintosh 

Jean -Luc Bazanegue 



Nous ne vous apprendrons rien en 
vous disant que. a chaque fois que 
Ton introduit une disquette d'amor- 
cage pour initialiser le Macintosh, on 
obtient a I'ecran I'affichage tempo- 
raire d'un dessin. La plupart du 
temps, ce dessin est limite au simple 
message "Bienvenue. ", accompagne 
d'un icone representant le Mac. En 
fait, tout un chacun peut rerr.placer 
cela par une image personnelle, a 
condition de disposer des logiciels 
"Macpaint" et "MS Basic". S'il n'est 
pas necessaire de comprendre le 
fonctionnement du systeme pour uti- 
liser le programme que nous vous 
proposons ici, il nous semble impor- 
tant de vous donner quelques expli- 
cations, ne serait-ce que pour vous 
permettre d'adapter le principe a 
d'autres applications. 



Structure d'un document 
"Macpaint" 

Le plus grand document Macpaint 
que Ton puisse obtenir correspond, a 
peu de choses pres. a une feuille de 
papier format A4. Un rapide calcul 
nous permet de savoir que ce docu- 
ment est constitue par 720 lignes de 
576 points (soit 72 octets par ligne). 
Si l'image etait sauvegardee sur la 
disquette sans modification, cela 
nous donnerait un fichier de 576 / 8 

• 720 = 51840 octets, ce qui n' ar- 
rive jamais. Done, l'image est codee. 
Apres de nombreux essais et compri- 
ses contre les maux de tete. nous 
avons reussi a determiner la nature 
exacte d un tel fichier. 

Bloc de tete 

Chaque fichier commence par un 
bloc de 512 octets qui n'a pas de 
rapport direct avec l'image : 

• Les quatre premiers octets indi- 
quent si les motifs standards 
places au bas de I'ecran Macpaint 
ont ete redefinis ou non. 
$00000000 = motifs standards: 
$00000002 = un ou plusieurs 
motifs redefinis par l'utilisateur. 

• Les trois cent quatre octets sui- 
vants constituent la definition des 
motifs (8 octets sont necessaires a 
la representation d'un motif - voir 
"Les routines en ROM du Macin- 
tosh", Pom's 15 - et Macpaint affi- 
che 38 motifs). 

• Les deux cent quatre octets res- 
tants ne semblent pas etre signi- 
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fiants puisqu'ils sont toujours a 
zero, quel que soit le type ou la 
dimension du dessin. Cette zone 
est peut-etre reservee pour une 
extension future du logiciel. 



Codage des images 

Nous arrivons dans la partie qui nous 
a donne le plus de travail puisque, 
pour trouver une constante suscepti- 
ble de nous placer sur la bonne voie, 
nous avons du realiser un grand 
nombre de dessins "structures", qu'il 
fallait ensuite "lire" octet par octet a 
partir du Basic. Nous vous livrons ici 
le resultat de cette tongue recherche. 

Dans tous les cas. meme pour un 
tres petit dessin, la totalite du docu- 
ment Macpaint est sauvegardee: ceci 
explique le fait qu'un document ab- 
solument vide occupe 2ko (soit qua- 
tre secteurs) sur la disquette lorsqu'il 
est sauvegarde. 

Chaque ligne de points (constitute, 
comme nous I'avons vu precedem- 
ment. par 72 octets) est codee inde- 
pendamment des autres de la ma- 
niere suivante : 

Si des octets identiques sont juxtapo- 
ses, nous trouvons dans le fichier 
code un octet contenant le nombre 
d'octets identiques moins un. avec 
son bit de poids fort (bit 7 ou "bit de 
signe") positionne a 1. Cet "octet 
compteur" est lui meme suivi par la 
valeur de I'octet trouve de fagon re- 
petitive. Ainsi, pour une ligne totale- 
ment vide (tous les octets a zero), 
nous trouvons $C7 et $00 (199 et 
0). Ceci correspond parfaitement a 
notre explication prealable, puisque 
199 - 128 (valeur du bit 7) + 1 est 
egal a 72. 

Dans le cas contraire, e'est a dire si 
des octets differents les uns des 
autres se suivent, I'octet compteur 
contient ausoi le nombre d'octets 
moins un mais, cette fois, avec son 
bit de signe a 0. Cela permertra a la 
routine de decodage de determiner si 
elle a affaire a des octets differents 
ou identiques. Puisque, dans le cas 
present, nous avons des octets diffe- 
rents, I'octet utilise comme compteur 
sera suivi par les N octets concernes. 
Si, avant codage, nous avons la suite 
d'octets : $FF, $FE. $A0. $10, la sec- 
tion correspondante dans le fichier 
code sera : $03 (quatre octets moins 
un), $FF. $FE. $A0 et $10. Les deux 



possibilites peuvent, bien sur, etre 
combinees plusieurs fois pour une 
seule ligne de 572 points. On peut 
constater que cette methode de co- 
dage est surtout rentable lorsque le 
nombre d'octets identiques est im- 
portant. En effet. si Ton prend le cas 
extreme ou Ton aurait, pour la tota- 
lite du document, uniquement des 
sequences de deux octets identiques, 
mais differents des deux octets prece- 
dents et suivants, l'image codee 
prendrait cinquante pour cent de 
plus de place que si elle n'etait pas 
codee. 

Pour conclure ce paragraphe, nous 
vous proposons un schema represen- 
tant une ligne, une fois son codage 
effectue : 



S8F 



SFF 



$03 



$45 



$10 



$FF 



$01 



$B3 



$00 



] 



1 



16 octets a SFF 
($8F=143. 143-128*1=16) 



4 octets differents 
(3*1) 



52 octets a 

($B3=179. 179-128+1=52) 



Constitution d'un fichier 
"Startup" 

Pour qu'un fichier soit reconnu par le 
systeme comme etant l'image a affi- 
cher lors de l'amorgage. il doit : 

• etre de meme nature qu'un docu- 
ment Macpaint avant codage: 

• etre baptise du doux nom de 
"Startupscreen". 

Le programme Basic accompagnant 
cet article decode le document Mac- 
Paint de votre choix, ce qui ne pose 
pas de probleme puisque nous avons 
maintenant tous les elements, et en 
fait un fichier que Ton peut conside- 
rer comme etant une "image me- 
moire" du document original. L'affi- 
chage du Macintosh etant constitue 
par 512 lignes de 342 points, seule 
la surface correspondante placee 
dans Tangle superieur gauche du do- 
cument a transformer est prise en 
compte. 



10 ' Conversion de f ichiers MacPaint en 
fichiers "Startupscreen". 

20' 

30 DEFINT ADOPTION BASE l:DIM A(36): 

ON ERROR GOTO 290 
40 CLS:CALL TEXTFONT(O) 
50 PRINT'Ce programme transforme un document 

MacPaint" 
60 PRINT"en un f ichier Startupscreen." 
70 PRINT'la partie superieure gauche du document 

est utilisee" 
80 PRINTX342 lignes * 512 colonnes).":PRINT 
90 PRINT"ATTENTION : si un fichiers Startupscreen 

se trouve sur la" 
100 PRINT "disquette placee dans !e lecteur 

interne, il sera detruit.":PRINT 
1 10 INPUTTichier MacPaint a convertir ? ",Z$: 

OPEN" i", 1,2$ 
120 OPEN"o",2,"startupscreen" 
130L=342 
140M=32 

150 PRINT"Conversion en cours..." 
160 Z$=INPUT$(512,1) 

170 FOR 1 = 1 TOLFOR J=l TO M:A(J)=0:NEXT.X=0 
1 80 NO=ASC(INPUT$( 1 , 1 )):IF N0< 1 85 THEN 0=N0+ I : 

La realisation d'un fichier "Startups- 
creen" par le programme ici propose 
demande environ huit minutes, mais 
son affichage au moment de l'amor- 
cage est instantane. Deso.mais. lors- 



GOTO 230 ELSE 0=256-N0*l: 

C=ASC(INPUT$(I,D) 
1 90 FOR J= I TO 0:IF (J*X* I ) MOD 2 THEN 

A((J*X* I )\2)-A((J*X+ 1 )\2) OR C:G0T0 220 
200 OC*256:IF C!>32767 THEN C!=065536! 
2 1 H=C!:A((J*X+ 1 )\2)=A((J+X* I )\2) OR H 
220 NEXT:X=X+0:GOTO 270 
230 FOR J= 1 TO 0:X=X* 1 :C= ASC( I NPUT$( I , I )): 

IF (X* 1 ) MOD 2 THEN A((X* I )\2)=A((X+ I )\2) OR 

C:G0T0 260 
240 C!=C*256:IF C!> 32767 THEN C!=C!-65536! 
250 H=C!:A((X+ 1 )\2)=A((X+ I )\2) OR H 
260 NEXT 

270 IFX<72THEN 180 
280 FOR J= I TO M: 

PRINT*2,CHR$(A(J)\256);CHR$(A(J) AND 

&HFF);:NEXT:NEXT:CLOSE:PRINT"Conversion 

effectuee.":G0T0 300 
290 CLOSE:END:IF ERL=280 THEN PRINT'La 

disquette est saturee !":RESUME 300 ELSE IF 

ERL= I 1 THEN RESUME I 1 ELSE RESUME 1 20 
300 PRINT" Autre fichier a convertir ? (O/N) 
310 Z$-INKEY$:IF Z$-"" THEN 310 ELSE IF Z$-"0" OR 

Z$="o" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 

END ELSE 310 



que vous enverrez une disquette a. 
un correspondent, celui-ci saura d'ou 
elle vient. meme si vous avez omis 
de joindre vos coordonnees. De plus, 
ce petit programme prouve qu'il 



n'est pas necessaire d'avoir le statut 
de "developpeur de logiciels" pour 
personnaliser des disquettes. 



Choisissez vos caracteres 

Lorsque I on edite un programme 
Basic, la taille et le type des caracte- 
res qui apparaissent dans les fenetres 
"List" et "Command" sont imposes 
(New York 12 poinis avec la pre- 
miere version du dossier systeme. et 
Geneve 12 points avec la version ac- 
tuelle). II est possible de changer cela 
en "POKant" le code de la police 
voulue a l'adresse $985. et la taille a 
l'adresse $987. 

POKE &H985.4: POKE &H987.9 
nous fait passer en Monaco 9 points, 
ce qui permet de visualiser beaucoup 
plus de texte en une seule fois. La 
taille des caracteres situes dans les 
menus est aussi modifiee. mais ce 
n'est pas un probleme puisque, lors- 
que Ton programme, l'efficacite est 
plus importante que l'apparence de 
l'ecran. ■ 



D'Applesoft a Microsoft 

Lorsque Ton passe de l'Apple II au 
Macintosh, on peut etre confronte a 



des "bugs" difficilement reperables, 
dus a quelques differences entre les 
Basics utilises. 

Les operateurs logiques ne fonction- 
nent pas de la meme facon. Ainsi : 
100 IF NOT A% THEN PRINT 
"NON": 
GOTO 120 

no print -our 

provoque. avec le Basic Applesoft. 
1 affichage de "OUI" si la variable 
A% est egale a 0. "NON" si A% est 
egale a 1 (ou. tout simplement, diffe- 
rente de 0). 

En Basic Microsoft, le texte affiche 
sera "NON". que la variable A% soit 
egale a 1 ou 0. 

Cela est du au fait que le Basic Ap- 
plesoft realise seulement un test logi- 
que. alors que le Basic Microsoft ef- 
fectue une veritable operation 
logique. NOT est egal a - 1 (diffe- 
rent de done vrai). NOT 1 est egal 
a —2 (idem). Le Basic Microsoft affi- 
chera "NON" uniquement si A% est 
egale a -1 (NOT -1 est egal a 0). 
Le NOT etant souvent utilise pour 



tester l'etat d'un drapeau. il vaut 
mieux positionner celui-ci a ou -1. 
plutot qu'a 1 ou 0. 

En Basic Applesoft, les boucles FOR 
- NEXT sont toujours executees au 
moins une fois, alors qu'avec le Basic 
Microsoft une boucle du type : 

FOR 1=0 TO 1 STEP -LNEXT 

ou encore : 

FOR 1=1 TO 0:NEXT 

ne sera pas executee (passage imme- 
diat a I'instruction suivante). 

L'instruction STR$(X) du Basic Mi- 
crosoft ajoute un espace au debut de 
la chalne resultante si le contenu de 
la variable X est positjf : "FICHIER" 
+ STR$(1) donne la chame "FI- 
CHIER 1". Ce n'est pas le cas avec 
le Basic Applesoft, ou la meme ins- 
truction retourne la chaTne "FI- 
CHIER1". 

Si vous trouvez d'autres differences, 
n'oubliez pas de nous en faire part... 



I 
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Call run exemple d'application 



Le Basic Microsoft auiorise l'appel de 
routines en langage machine, ce qui 
est la moindre des choses. avec I" ins- 
truction CALL. Cependant. la docu- 
mentation fournie avec le logiciel 
n est pas ires claire sur ce point et un 
petit complement d'informations ne 
nous semble pas superflu. 

Pour illustrer le fonctionnement de 
cette instruction, nous avons ecrit 
une courte routine qui effectue le 
transfert du contenu d'un tableau de 
variables entieres a deux dimensions, 
vers un tableau de variables a une 
dimension. Cette routine permet de 
combler en partie un defaut de lins- 
truction PUT. qui n'accepte pas les 
indices: PUT(10.10).A(B.C) provo- 
que une ""SYNTAX ERROR ". Ce 
n est pas vraiment genant lorsque 
Ton a seulement deux ou trois PUT 
a executer mais. si Ton doit realiser 
une animation qui necessite 32 de 
ces instructions, la memoire peut etre 
tres rapidement saturee. II serait a la 
fois plus agreable et plus efficace 
d'ecrire une boucle du type : 

100 FOR I% = TO 31 
110 PUT(10.10).A%(I%.0) 
120 NEXT 

plutot que : 

100 PUTUO.lOhAO",", 
110 PUT(10.10),A1% 
120 PUT(10.10).A2";. 
etc... 

Pour comprendre parfaitement le 
fonctionnement de la routine, il est 
indispensable de connaitre la struc- 
ture des tableaux de variables entie- 
res: nous allons done commencer par 
la. 

Structure des tableaux 

Linstruction VARPTR(X) retourne 
1' adresse en memoire de la variable 
X (uniquement avec des variables 
numeriques: le systeme differe sensi- 
blement pour les variables alphanu- 
meriques). De meme, linstruction 
VARPTR(V%(0)) retourne ladresse 
du premier element (variable en- 
tiere : 2 octets) constituant le tableau 
V%(X). On peut noter au passage 
que. si un tableau V"o(X) a ete prea- 
lablement defini avec DIM. une va- 
riable V% est consideree par I' inter- 
preter comme totalement 
independante du tableau precite. 

Au dessus de l adresse du premier 
element (soit en allant vers les adres- 
ses les plus basses), nous trouvons 
les arguments du tableau. Si I on part 
de l adresse contenant le premier 
octet de ce "descripteur ". nous trou- 
vons : 



• Le nombre d'octets par elements 
(8 = double precision, 4 = simple 
precision et 2 = entier). 

• Les codes ASCII des deux pre- 
miers caracteres constituant le 
nom du tableau. Si le nom est 
forme par un seul caractere. le se- 
cond octet est nul 

• Le nombre de caracteres consti- 
tuant le nom du tableau moins 
t'.eux. Pour un nom forme de 
moins de trois caracteres. cet octet 
est nul. 

• Les codes ASCII des caracteres du 
nom (au dela du second carac- 
tere). avec le bit de signe posi- 
tionne a 1 ($C1. soit 193". pour un 
"A" dont le code ASCII est nor- 
malement 65). Pour un nom dont 
le nombre de caracteres est infe- 
rieur ou egal a deux, cette zone 
n'apparait pas 

• Une valeur sur 24 bits (3 octets) 
representant la position relative 
(par rapport a l adresse courante) 
de la prochaine definition de ta- 
bleau ou variable 

• Un octet contenant le nombre de 
dimensions du tableau. 

• Deux octets indiquant le nombre 
d'elements par dimension, repetes 
autant de fois que necessaire. On 
trouve ces valeurs dans l ordre in- 
verse de la definition du tableau 
par DIM Ainsi. pour A(3.10). 
nous trouvons $00 SOB $00 $04 
pour OPTION BASE 0. et $00 
$0A $00 $03 pour OPTION 
BASE 1. On constate done que la 
seule difference entre OPTION 
BASE 1 et OPTION BASE se 
trouve dans la definition du nom- 
bre d elements. 

Si Ton prend des exemples concrets. 
pour ABCD";,(10). nous trouvons 
dans la table des arguments (OP- 
TION BASE 0): 

$02 : nombre d'octets par elements 
$41 $42 $02 $C3 $C4 : nom du ta- 
bleau: 

$00 $00 $5C : position relative de la 
prochaine definition de variable ou 
tableau: 

$01 : nomb-e de dimensions: 
$00 $0B : r.ombre d elements 
$XX $XX : premier element du ta- 
bleau, dont l adresse est retournee 
par VARPTR(A"o(0)). 

Pour AB#(2.3.4). nous trouvons 
(OPTION BASE 1) : 

$08 : nombre d'octets par elements. 
$41 $42 $00 : nom du tableau. 
$00 $00 $C7 : adresse relative: 
$03 : nombre de dimensions. 
$00 $04 : nombre d elements pour 
la troisieme dimension. 
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$00 $03 : nombre d elements pour 
la seconde dimension. 
$00 $02 : nombre d'elements pour 
la premiere dimension. 
$XX $XX $XX $XX $XX $XX $XX 
$XX : premier element de la pre- 
miere dimension 

Position des elements dans un 
tableau 

Pour un tableau a une dimension, il 
n'y a aucun probleme puisque les 
elements sont places les uns apres les 
autres en memoire. Ainsi. pour un 
tableau de variables en simple preci- 
sion, et si X represente l adresse du 
premier element, le second element 
se trouve en X + 4. le troisieme en 
X + 8. etc... 

Pour un tableau a deux dimensions 
(A(3.9) par exemple). les choses se 
compliquent un peu puisque Ton y 
trouve (la premiere colonne de chif- 
fres represente la premiere dimen- 
sion) : 

1 - 1 

2 - 1 

3 - 1 

4 - 1 

1 - 2 

2 - 2 

3 - 2 

4 - 2 
etc... 

Ceci explique la position inversee des 
indicateurs d'octets par elements. 

Fonctionnement de 
CALL 

L instruction CALL peut etre consi- 
deree comme une interface entre 
I'interpreteur Basic et le langage ma- 
chine. Elle permet l'appel d une rou- 
tine et le retour au programme Basic 
(si tout se passe bien !). II n est pas 
possible, comme avec le Basic Ap- 
plesoft de lApple II. d'appeler une 
routine avec un "CALL adresse de la 
routine". II faut obligatoirement que 
l adresse se trouve dans une variable 
Cette variable doit etre de type sim- 
ple ou double precision car les ad/es- 
ses peuvent etre superieure a 65535 
(le microprocesseur MC 68000 L8 
peut adresser 16777216 octets direc- 
tement). De maniere generale. et 
dans ce cas. il vaut mieux s en tenir 
aux variables en simple precision 
puisque les variables en double pre- 
cision occupent deux fois plus de 
place en memoire. pour le meme re- 
sultat. 

TRES IMPORTANT: il ne faut 
jamais utiliser une variable numeri- 
que qui ne fait pas partie d un ta- 
bleau, si elle n'a pas ete prealable- 
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merit definie. enlre I'affectation de la 
variable destinee au CALL et le 
CALL lui meme. En effel. I" initialisa- 
tion d une nouvelle variable provo- 
que un deplacement des tableaux, ce 
qui fait que. si cette regie n est pas 
respectee. le CALL peut appeler 
autre chose que l'adresse de bran- 
chement dans la routine, autrement 
dit : n'importe quoi... et bonjour la 
petite bombe ! Cette particularite 
peut donner des programmes a las- 
pect etrange la ligne 120 du pro- 
gramme joint a cet anicle parait 
completement stupide si I on a pas 
connaissance de ce probleme de de- 
placement. 

Le CALL et la pile 

La notion de pile est bien connue 
des utilisateurs du Mac venant de 
1' Apple II. II faut neanmoins signaler 
quelques differences entre la gestion 
de cette zone de memoire par le 
6502 et le 68000 : 

• la pile du 6502 se trouve en page 
1 aux adresses $100 a $1FF alors 
que celle du 68000 peut etre a 
n'importe quel emplacement: 

• la pile du 6502 est limitee a 256 
octets alors que celle du 68000 
peut theoriquement occuper 16 
Mega-octets (le pointeur de pile, 
qui est en fait le registre d'adresse 
7. contient 32 bits). Avec le Basic 
Microsoft, et par defaut. la pile oc- 
cupe 8 Ko. Ceci peut etre modifie 
par I'instruction CLEAR : 
CLEAR.. 1024 reduit la taille de la 
pile a 1 Ko. les 7 Ko ainsi liberes 
etant affectes au programme 
Basic: 

• le pointeur de pile etant un regis- 
tre d'adresse. on peut agir sur son 
contenu de la meme maniere 
qu'avec les autres registres: ce 
n'est pas le cas avec le 6502. 

Nous conseillons a ceux d'entre-vous 
qui desirent en savoir plus sur le mi- 
croprocesseur MC 68000 de se pro- 
curer l'ouvrage intitule "Mise en oeu- 
vre du 68000 ". aux editions SIBEX. 
Ce livre est relativement cher (198 
F), mais ce ne sera certainement pas 
un investissement inutile. Nous 
sommes en effet dans une situation 
paradoxale ou Ton s'apercoit que le 
seul ouvrage vraiment indispensable 
a ceux qui veulent connaitre le fonc- 
tionnement du Macintosh n'est pas 
l'un des nombreux livres qui "trai- 
tent" directement de cet appareil ! 

Appel d'une routine sans pas- 
sage de parametres 

Lors d'un appel de routine, l adresse 
de retour a l'interpreteur Basic est 
placee au sommet de la pile, le 
contenu du pointeur de pile (Stack 
Pointer - SP) est decremente de 4 
(adresse sur 32 bits, done 4 octets) et 
pointe sur le premier octet de 



I adresse en question. Pour revenir 
au programme Basic, il suffit dutiliser 
I'instruction RTS (retour de sous-pro- 
gramme) qui place dans le compteur 
ordinal (PC) le contenu de l adresse 
pointee par le SP. qui est ensuite in- 
cremente de 4 pour revenir a la va- 
leur initiate (avant le CALL) 

Appel d'une routine avec pas- 
sage de parametres 

II est possible de passer autant de 
parametres que necessaire entre le 
programme Basic et la routine en 
iangage machine, ou dans le sens in- 
verse. Tous les types d'arguments 
peuvent etre communiques : 

• Les constantes ou expressions 
(B*10. par exemple) sont conver- 
ties en une valeur entiere sur 16 
bits si possible, sur 32 bits sinon. 

• Les variables entieres restent sur 
16 bits. 

• Les variables en simple ou double 
precision sont converties en une 
valeur entiere sur 32 bits. 

• Lorsque Ton veut passer a la rou- 
tine i'adresse d une variable nu- 
merique plutot que son contenu, il 
faut utiliser I'instruction 
VARPTR(X). Dans ce cas. la va- 
leur est passee sur 32 bits. 

• Pour une variable alphanumeri- 
que, VARPTR ne retourne pas 
l adresse de la chaine de caracte- 
res mais I'adresse ou se trouvent. 
dans I'ordre. le nombre d'octets 
dans la chaine (sur 16 bits) et 
I'adresse du premier caractere de 
la chaine (sur 24 bits). 

Dans tous les cas. si l'on doit passer 
des arguments par l'intermediaire de 
variables, que ce soit pour une va- 
leur ou une adresse. il est indispensa- 
ble que la ou les variables aient ete 
prealablement definies. De meme. 
lorsque l'on doit passer I'adresse 
d'un tableau de variables, il faut res- 
pecter les memes regies que pour 
une variable contenant une adresse 
destinee a un CALL. 

Les parametres passes a la routine 
sont places dans la pile dans I'ordre 
de leur apparition dans I'instruction 
CALL L'adresse de retour au Basic 
est ensuite empilee. Ainsi. pour I'ins- 
truction CALL A(X%. Y#. VARPTR 
(Z%)). nous trouvons dans la pile : 



<— SP 

Adresse de retour 
au Basic (32 bits) 



Valeur de Y* 
(32 bits) 



] Valeur de X% (16 bits) 




Adresse de 1% 
(32 bits) 



Fonctionnement de la 
routine 

Le but de cette routine est le trans- 
fert du contenu d'un tableau a deux 
dimensions dans un tableau a une 
dimension, afin de pouvoir realiser 
une animation avec une seule ins- 
truction PUT. alors qu'il en aurait 
fallu un grand nombre (32 dans 
notre exemple) avec la methode nor- 
male. L'appel de cette routine s'ef- 
fectue avec le passage des parame- 
tres suivants : adresse du premier 
element de la premiere dimension du 
tableau de depart, adresse de l ele- 
ment (X.0) du meme tableau, 
adresse du premier element du ta- 
bleau d'arrivee. Voyons ce que la 
routine fait de ces valeurs et. ligne 
par ligne. comment elle fonctionne. 

1 - Le contenu du registre d'adresse 
6 (32 bits) est place dans la pile. Le 
pointeur de pile est decremente de 4 
(il pointe done 4 octets plus haut que 
I' adresse de retour). et sa nouvelle 
valeur est placee dans A6 (registre 
d'adresse 6). Cette manoeuvre est 
indispensable lorsqu'il y a passage de 
parametres. 

2 - L'adresse du premier element 
du tableau de depart est la premiere 
valeur empilee au moment du 
CALL, et se trouve done, compte 
tenu de la nature des 3 parametres 
et de l'effet de I'instruction prece- 
dente. 16 octets plus bas que 
l'adresse pointee par A6. Cette ins- 
truction deplace done une copie de 
l'adresse du premier element du ta- 
bleau de depart dans le registre 
d'adresse AO. 

3 - Nous avons vu precedemment 
que les deux octets situes juste au 
dessus de l'adresse d'un tableau a 
deux dimensions indiquent le nom- 
bre d' elements dans la premiere di- 
mension. L' instruction MOVE 
-2(A0).D0 effectue une copie de ce 
nombre dans les 16 bits de poids fai- 
ble du registre de donnee DO (les 16 
registres du 68000. qu'ils soient de 
donnee ou d'adresse. sont des regis- 
tres 32 bits). Nous nous servirons de 
cette valeur ulterieurement. 

4 - L'adresse du premier element 
du tableau d'arrivee se trouve 8 
octets plus bas que l'adresse pointee 
par A6. Nous faisons une copie de 
cette adresse dans AO. 

5 - L'adresse du premier element 
du tableau d'arrivee moins deux 
contient le nombre d'elements. Nous 



Pom s n° 16 



placons cette valcur dans les 16 bits 
de poids faible du registre de donnee 
Dl. Ceci nous permet de savoir 
combien de mots de 16 bits devront 
etre transferes et d'eviter ainsi des er- 
reurs catastrophiques. puisque la rou- 
tine ne pourra pas deplacer plus 
d'elements que ne peut en contenir 
le tableau d'arrivee. 

6 - Dl, notre compteur d'elements. 
est decremente de un. Nous verrons 
plus loin I'interet de cette operation. 

7 - L'adresse du premier element a 
deplacer depuis le tableau de depart 
est copiee dans le registre Al.. 

8 - La valeur du registre DO (qui 
contient le nombre d'elements dans 
la premiere dimension du tableau de 
depart) est multipliee par deux, puis- 
que le transfert porte sur des mots de 
16 bits. 



9 - Tranfert du premier element. 
L'adresse contenue dans AO etant 
auto-incrementee. AO pointe sur 
I' element suiyant du tableau d'arrivee 
des la fin d'execution de cette ins- 
truction. 

10 - Dans le paragraphe consacre a 
la position des elements dans un ta- 
bleau, nous avons vu que. dans le 
cas d'un tableau a deux dimensions, 
on trouve d'abord les premiers ele- 
ments, suivis des seconds elements, 
et ainsi de suite... Done, pour un ta- 
bleau A(3.9). I' element (1.0) se 
trouve 8 octets plus loin que I'ele- 
ment (0.0). Ce deplacement se 
trouve dans DO. que nous ajoutons 
a Al pour obtenir l'adresse du pro- 
chain element a transferer depuis le 
tableau de depart. 



11 - L'instruction DBRA Dl.BOUCLE 
decremente la valeur contenue dans 
les 16 bits de poids faible de Dl. La 
valeur resultante est ensuite compa- 
ree a —1. Si le contenu de Dl est 
different, le programme est dirige 
vers l'etiquette "BOUCLE". Sinon. 
on passe a l'instruction suivante. On 
voit ici I'interet de la decrementation 
de la ligne 6 puisque la sortie de 
boucle se fait lorsque Dl est egal a 
— 1. En cas d'omission de la decre- 
mentation, on transfererait un ele- 
ment de trop, ce qui aurait certaine- 
ment pour consequence un 
"plantage" du Mac. 

12 et 13 - La routine a fait son tra- 
vail, on revient au programme Basic 
par RTS. sans avoir oublie de remet- 
tre les choses en etat avec UNLK. 
qui est bien sur I'inverse de LINK. 



Source de la routine de transfert 



1 


1E56 


0000 


LINK 


R6,«0 


2 


206E 


0010 


riOUEA.L 


16(R6),R0 


3 


3028 


FFFE 


ROUE 


-2(R0),D0 




206E 


0008 


flOUEfl.L 


8(R6),R0 


5 


3228 


FFFE 


nouE 


-2(fiO),D1 


6 


53-tl 




SUBQ 


»1,D1 


7 


226E 


oooc 


riOUErl.L 


I2(fl6),fl1 


8 


D080 




fiOD.L 


DO, DO 


9 


30D1 




BOUCLE MODE 


(Rl),(flOh 


lu- 


03C0 




flDDA.L 


D0,R1 


ll 


51C9 


FFFfl 


DBRfl 


Dl, BOUCLE 


12 


1E5E 




UNLK 


R6 


13 


1E75 




RTS 





10 ' Exemple d'animation utilisant une 
routine en langage machine pour le 
transfert de tableaux de variables 
entieres 



20' 

30 DEFINT A-H.DEFSNG l-Z:DIM C(I9),B(65), 

A(3I,65),F(3),D(3) 
40 DATA &h4E56,0,&h206E,16,&h3028,&hFFFE, 

&h206E,8,&h3228,&hFFFE,&h5341 ,&h226E, 1 2, 

&hD080,&h30D 1 ,&hD3C0,&h5 1 C9, &hFFFA, 

&h4E5E,&h4E75 
50 FOR B-0 TO 19:READ C(B):NEXT 
60 FOR B-0 TO 3:F(B)=&HAA55:NEXT 
70 D(0)=1 1:D(1)=1 I 

80 FOR B"0 TO 3 1 :D(2)= 1 1 *B:D(3)=D(2) 

90 CALL FILLRECT(VARPTR(D(0)),VARPTR(F(0))): 

CALL FRAMERECT(VARPTR(D(0))) 
100 GET(1 1,1 1)-(42,42),B 
I 10 FOR E=0 TO 65:A(B,E)=B(E):NEXT:NEXT 
1 20 Y-0:X-0:Z-VARPTR(C(0)):Y=VARPTR(A(0,0)): 

X=VARPTR(B(0)) 
1 30 FOR B=0 TO 3 1 :CALL Z(Y,VARPTR(A(B,0)),X): 
PUT( 1 00, 1 00),B,PSET:NEXT:GOTO 1 30 



II semble inutile de s'attarder sur le 
petit programme Basic dont la 
comprehension est aisee lorsque Ton 
a tous les elements. Nous n'avons 
pas joint ('equivalent de ce pro- 
gramme en utilisant la methode nor- 
male. car cela aurait pris beaucoup 



de place et ne presentait pas d'inte- 
ret. Ce dont vous pouvez etre sur. 
e'est qu'un tel programme prend 
vraiment beaucoup plus de place 
que celui que nous vous proposons. 
Le seul defaut de cette methode est 
sa relative lenteur par rapport a une 



serie de PUT. mais ce n est pas vrai- 
ment un inconvenient, d'autant 
qu'avec la methode classique il est 
souvent necessaire d'inserer des bou- 
cles de delai. Faites 1'experience... 



Restauration de dis- 
quette 

II arrive qu'il ne soit plus possible 
d'utiliser une disquette abtmee par 
une micro-coupure, un RESET in- 
tempestif... durant un acces au dis- 
que. On parvient parfois a restaurer 
la disquette avec la procedure sui- 
vante. a demarrer avec 1'appareil 
eteint : - Mertre la disquette fautive 
dans le lecteur integre. 
- Allumer 1'appareil en maintenant 
enfoncees les touches Option et 



Disquette Macintosh 

La disquette Macintosh comporte les 
programmes Macintosh publies dans 
les Pom's 14 a 16 : le nouveau sys- 
teme, la police Cairo (Pom's 15) et 
le programme Disk Copy. La grande 
surprise que nous vous y avons 
ajoute pour ce numero est le pro- 
gramme "Localizer". 

Ce programme vous permet de mo- 
difier le clavier d'une disquette sans 



toucher au reste du systeme. C'est 
tres utile car. quand vous remplacez 
le systeme d'une disq".ette US par 
un systeme francais. vous ecrasez 
tout ce qu'il pouvait y avoir par ail- 
leurs dans le systeme americain, par 
exemple les polices. C'est ce qu'ont 
decouvert avec grand deplaisir cer- 
tains possesseurs de Multiplan US. 
apres avoir copie un systeme frangais 
ne comportant pas la police Seattle. 
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MacPaint et le Basic 

Pom's 



Nous avons pense qu'il pourrait etre 
interessant de recuperer des docu- 
ments MacPaint depuis le Basic, pour 
en faire, par exemple, des decors de 
programmes de jeux ou, simplement, 
des presentations soignees de pro- 
grammes plus serieux. Le temps ne- 
cessaire a la realisation d'un pro- 
gramme se trouve serieusement 
raccourci puisque Ton peut "planter 
le decor " tres rapidement avec Mac- 
paint. En revanche, s'il est possible 
de faire la meme chose avec unique- 
ment le Basic, une presentation so- 
phistiquee risque d'utiliser toute la 
memoire disponible sur un 128 Ko et 
d'occuper la place necessaire pour la 
partie logique du programme. 

Mode d'emploi 

11 faut, bien sur, creer un document 
MacPaint dont on utilisera seulement 



les 300 premieres lignes de 496 
points, situees dans Tangle superieur 
gauche de la page graphique. La 
deuxieme etape consiste en la 
conversion du document en un fi- 
chier facile a charger depuis le Basic. 
Pour ce qui est de la methode em- 
ployee pour transformer le docu- 
ment, vous pouvez vous reporter a 
1' article "Personnalisez vos disquettes 
Macintosh", publie dans ce numero. 
Vous pourrez d'ailleurs constater que 
les programmes sont presque identi- 
ques; seule la methode employee 
pour la sauvegarde du fichier final est 
differente. Une fois le fichier converti, 
quelques lignes de Basic suffisent a 
son chargement. 

Nous avons choisi d'utiliser 300 
lignes de 496 points parce que cela 
correspond au remplissage de la fe- 



netre de sortie du Basic Microsoft, 
lorsqu'elle est ouverte au maximum. 
Cependant, vous pouvez choisir une 
autre dimension en modifiant les 
lignes 70 et 80 du programme de 
conversion. Pour un document de 
200 lignes de 256 points, il faut que 
L (nombre de lignes) soit egal a 200. 
et que M (nombre de mots de 16 
bits par ligne) soit egal a 16 (256 / 
16 = 16). De meme, le petit pro- 
gramme de chargement doit etre mo- 
difie en consequence. 

Pour le chargement. bien que le pro- 
gramme soit tres court, il est encore 
possible de liberer 66 octets en "de- 
letant" le tableau A(32), inutile une 
fois l'affichage de 1' image effectue. 



10 ' Conversion de fichiers MacPaint en 
fichiers utilisables depuis un programme 
Basic. 

20' 

30 DEFINT A-Y:0PTI0N BASE 1:DIM A(36): 

ON ERROR GOTO 230 
40 CLS.CALL TEXTFONT(O) 

42 PRINT'Ce programme transforme un document 
MacPaint" 

43 PR I NT" en un fichier sequentiel utilisable depuis 
un" 

44 PRINT"programme ^n Basic Microsoft." 

45 PRINT'la partie superieure gauche du document 
est utilisee" 

46 PRINT"(300 lignes * 496 colonnes).":PRINT 
50 INPUTTichier MacPaint a convertir ? ",Z$: 

0PEN"i",l,Z$ 
60 INPUTTichier a creer ? ",Z$:OPEN"o",2,Z$ 
70 L-300 
80M=3I 

90 PRINT:PRINT"Conversion en cours..." 
100 Z$=INPUT$(5I2,1) 

I 1 FOR 1 = 1 TO L:F0R J- 1 TO M:A(J)=0:NEXT:X=0 
1 20 N0= ASC( I NPUT$( 1 , 1 )): I F N0< 1 85 THEN 0=N0* 1 : 

60T0 170 ELSE 0-256-NOI: 

OASC(INPUT$(1,l)) 
1 30 FOR J= 1 TO 0:IF (J+X* 1 ) MOD 2 THEN 

A((J+X* 1 )\2)-A((J*X+ 1 )\2) OR C.G0T0 1 60 
140 C!=C*256:IF C!>32767 THEN 0065536! 
1 50 H-C!:A((J*X* I )\2)-A((J*X* I )\2) OR H 



160 NEXT:X=X*0:G0T0 210 

1 70 FOR J- 1 TO 0:X=X* 1 :OASC(INPUT$( 1,1)): 

IF (X* 1 ) MOD 2 THEN A((X* I )\2)-A((X» 1 )\2) OR 

C:G0T0 200 
180 OC*256:IF C!>32767 THEN C!=C!-65536! 
1 90 H=C!:A((X+ 1 )\2)-A((X* I )\2) OR H 
200 NEXT 

210 IFX<72THEN 120 

220 FOR J=l T0M:PRINT*2,A(J):NEXT:NEXT: 

CLOSE:PRINT"Conversion effectuee." :G0T0 240 
230 CL0SE:IF ERL-220 THEN PRINT'La disquette est 

saturee !":RESUME 240 ELSE IF ERL=50 THEN 

RESUME 50 ELSE RESUME 60 
240 PRINFAutre fichier a convertir ? (0/N) 
250 Z$=INKEY$:IF Z$=" THEN 250 ELSE IF Z$="0" OR 

Z$-"o" THEN 40 ELSE IF Z$="N" OR Z$="n" THEN 

END ELSE 250 



10 Chargement et aff ichage d'une image 
realisee avec Macpaint et transformee 
avec le programme de conversion. 

20 DEFINT A-Z:CLS 
30 DIM A(32):A(0)=496:A(1)=1 
40 0PEN"i",l,"nom du fichier" 
50 FOR 1=0 TO 299:F0R J=0 TO 30: 

INPUT* 1 ,A(J + 2):NEXf : 

PUT (0,l),A:NEXT:CL0SE 
60 GOTO 60 



Pom's n° 16 



Appcl des routines en ROM 

Gerard Michel et Jean-Luc Bazanegue 



La tendance actuelle des construe - 
teurs d'ordinateurs et. en particulier. 
d'Apple. est de dire qu'il n est pas 
necessaire de savoir programmer 
pour utiliser ce type de machine. Si 
cela est vrai. il est aussi indeniable 
que la plupart des particuliers qui 
possedent un micro-ordinateur pas- 
sent plus de temps a le programmer 
qu a utiliser des programmes tout 
faits. Dans un meme ordre d'idee. on 
nous repete sans cesse que Ton peut 
tout faire avec Multiplan; nous serons 
prets a le croire le jour ou Ton nous 
presentera un tel tableur ecrit en ce 
"langage". Cela nous rappelle d'ail- 
leurs la grande question metaphysi- 
que : "est-ce 1'oeuf qui a pondu 
l'oeuf ou l'oeuf qui a pondu 
I'oeuf...". 

Cette entree en matiere quelque peu 
rageuse traduit notre sentiment, lors- 
que Ton constate qu'aucune informa- 
tion technique n est fournie a l'utilisa- 
teur. qui a quand meme investi 
quelques milliers de francs dans un 
appareil. et serait en droit d'en savoir 
un peu plus. Nous sommes assez loin 
des "Tutorials" et autres manuels de 
reference de 1' Apple II. et ce n'est 
pas la "litterature specialisee" actuelle 
qui suffit a combler le vide. Ceci 
etant dit. lorsque Ton regarde ce qui 
se passe "a linterieur". le Macintosh 
est une machine passionnante qui 
utilise un processeur remarquable. et 
Pom's a bien I'intention "d'ouvrir la 
boite". 

Pour mieux connaitre le fonctionne- 
ment de la "chose", nous n'avons 
pas trouve d'autres solutions que le 
desassemblage de certaines zones de 
memoire. Ce n'est pas une mince af- 
faire, sans desassembleur. d'autant 
plus que toutes les instructions du 
68000 sont codees sur au moins 16 
bits, ce qui fait, etant donnes les 14 
modes d'adressage autorises. un 
grand nombre de codes machine 
possibles. 

Des le debut de nos recherches. 
nous avons trouve de nombreux 
codes ne correspondant pas a des 
instructions valides. Apres avoir 
doute quelques instants de la fiabilite 
de notre methode de desassemblage 
manuel. il s'est avere que ces instruc- 
tions illegales etaient utilisees pour 
l'appel des routines situees dans la 
ROM de 64 Ko. ainsi que pour quel- 
ques routines en RAM 

Instructions 
illegales 

Lorsque le processeur rencontre un 
code ne correspondant pas a une 



instruction valide. il entame une pro- 
cedure d'exception. Deux cas peu- 
vent se presenter : code dont les 
quatre bits de poids fort correspon- 
dent a la combinaison binaire 1010 
ou 1111 ($A ou $F): code dont les 
quatre bits de poids fort ne forment 
pas la combinaison 1010 ou 1111. 
mais dont la combinaison binaire ne 
permet pas de reconnaitre une ins- 
truction valide. Nous ne traiterons ici 
que de la premiere solution, utilisee 
pour l'appel des routines. 

Une procedure d'exception est effec- 
tuee de la maniere suivante : 

• Le processeur passe en mode su- 
pervisee, si toutefois il n'y etait 
pas deja. En effet. le 68000 peut 
fonctionner dans deux modes dif- 
ferents : le mode utilisateur. dans 
lequel la totalite des instructions 
ne peut pas etre utilisee. et le 
mode superviseur qui autorise 
I" exploitation de toutes les instruc- 
tions. Nous ne nous attarderons 
pas sur ce point car il semble que, 
sur le Macintosh, le 68000 soit 
toujours en mode superviseur. 

• La logique du processeur genere 
un numero de vecteur qui est : 10 
pour un code commengant par 
1010; 11 pour un code commen- 
cant par 1111. 

• Le contenu actuel du compteur 
ordinal (Program Counter - PC) 
est mis en pile. II est important de 
signaler que ladresse placee dans 
la pile est celle de Instruction ille- 
gale provoquant l'exception. 

• Le contenu du registre d'etat 
(Status Register - SR) est mis en 
pile. A ce stade. le contenu du re- 
gistre pointeur de pile (Stack Poin- 
ter - SP) a ete decrements de 6. 
par rapport a sa valeur avant le 
debut de la procedure d'excep- 
tion. puisque nous avons empile le 
PC (32 bits) et le SR (16 bits). 

• La valeur du numero de vecteur 
est multipliee par quatre: pour une 
exception provenant d'un code 
dont les quatre bits de poids fort 
sont a 1010. le numero de vecteur 
est 10. ce qui nous donne 40. 
Ceci correspond a l adresse conte- 
nant l adresse a placer dans le PC. 
done l adresse de la prochaine ins- 
truction a executer. 

Tous les appels de routines etant ef- 
fectues par des instructions illegales 
commengant par 1010. nous allons 
etudier de plus pres le contenu de 
l adresse 40. et surtout ce qui se 
passe lorsque I on a obtenu cette va- 
leur. 



Routine de calcul 
des adresses 

Pour savoir quelle est l'adresse 
contenue par l adresse 40. il suffit, 
sous Basic, de faire des "PEEKs" aux 
adresses 40. 41. 42 et 43. II est d'ail- 
leurs important de signaler que 
toutes nos recherches sont effectuees 
avec le seul Basic Microsoft, soit avec 
des moyens accessibles a tout un 
chacun. Aux adresses sus-nommees. 
nous trouvons : 0. 64. 16 et 24. ce 
qui nous donne l adresse * 65S36 
+ 64 * 4096 + 16 * 256 + 24. soit 
266264 ou. en hexadecimal. 
$041018. Cette adresse (impression- 
nante quand on vient de I'Apple II) 
correspond au point d'entree dans 
une routine (en ROM) qui calcule les 
adresses des autres routines, en fonc- 
tion de la valeur du code qui a pro- 
voque la procedure d'exception. 
Toujours a laide du Basic, nous 
avons lu les codes machine situes a 
partir de cette adresse. puis disas- 
semble (a la main !). ce qui nous 
donne la "pseudo-liste d'assem- 
blage" que vous trouverez a la fin de 
cet article. La methode employee 
pour le calcul des adresses n'etant 
pas forcement evidente. nous vous 
proposons quelques explications. 
Afin de les clarifier. nous allons pren- 
dre le cas du code illegal $A94C. qui 
provoque l'appel de la routine qui in- 
verse l'etat des pixels constituant la 
barre des menus. 

1 - Le contenu du pointeur de pile 
est decrements de deux. 

2 - Le registre d'adresse A2. ainsi 
que les registres de donnee Dl et 
D2. sont sauvegardes dans la pile 
qui. a ce stade. se presente ainsi : 



— 1 <— SP actuel 
Registre 01 



Regi3tre D2 



Regi3tre A2 



<- SP ligne 1 



~] Ancienne valeur 
duSR 

Ancienne valeur 
du PC 



3 - Le contenu de l'adresse pointee 
par le SP plus 16 (ancienne valeur 
du PC. soit l'adresse de I'instruction 
invalide) est transfere dans le registre 
d' adresse A2. 

4 - Une copie de I'instruction inva- 
lide est placee dans les 16 bits de 
poids faible du registre de donnee 
D2. Ainsi. D2 (registre 32 bits) 
contient $XXXXA94C. les "X" repre- 
sentant la valeur indeterminee conte- 
nue dans les 16 bits de poids fort. 
Apres execution de cette instruction, 
le registre A2. qui est auto-incre- 
mente, pointe sur I'instruction a trai- 
ter au retour de la routine. 

5 - L'adresse de retour est placee 
dans la pile, ecrasant ainsi l'adresse 
de I'instruction illegale. 

6 - Une copie des 16 bits de poids 
fort de D2. qui contiennent I'instruc- 
tion illegale. est placee dans Dl. 

7 - Le code de I'instruction illegale 
est compare a la valeur immediate 
$A800. 

8 - Le bit "carry" du registre d'etat 
est place a 1 si le code de notre ins- 
truction illegale est inferieur a $A800. 
Comme ce n'est pas le cas. nous 
passons a I'instruction suivante. 

9 - L'adresse de I'instruction suivante 
(ligne 10) est mis en pile. Le poin- 
teur de pile est decremente de 4 et le 
compteur ordinal est charge avec 
l'adresse de I'instruction situee a 1' eti- 
quette "ETQ2". Pour que les choses 
soient bien claires : le pointeur de 
pile contient l'adresse ou est sauve- 
gardee le registre Dl. moins 4. 

16 - Un "ET" logique est realise 
entre les 16 bits de poids fort de D2 
et la valeur immediate $01FF. 
Comme nous avons $A94C dans le 
registre. la valeur resultante est 
$XXXX014C. 

17 - Le bit 15 du registre D2 (bit de 
signe lorsque Ton utilise seulement 
les 16 bits de poids faible) est copie 
dans les 16 bits de poids fort. Le bit 
15 etant a 0. nous obtenons la va- 
leur $0000014C. Ceci permet de 
supprimer d'eventuelles valeurs para- 
sites. 

18 - On ajoute le registre D2 a lui- 
meme. ce qui revient a multiplier son 
contenu par 2. II contient maintenant 
$00000298. 

19 - L'adresse $000400 est chargee 
dans le registre A2 

20 - Le contenu (16 bits) de 
l'adresse calculee en ajoutant la va- 
leur de A2 a celle de D2 est place 
dans le registre D2. $000400 + 



$000298 = $000698. Cette adresse 
contient $8B9B 

21 - Le contenu des 16 bits de poids 
faible du registre D2 ($8B9B) est 
multiplie par deux. On a maintenant 
$1736 et le bit "carry (retenue) est 
positionne a 1 puisque le resultat de 
1' operation ne "tient" pas dans 16 
bits. 

22 - L'instruction BCS (branchement 
si retenue a 1) nous dirige vers I'eti- 
quette "ETQ4 ". 

25 - Les 32 bits situes a l'adresse 
$02B2 sont ajoutes aux 32 bits du 
registre D2. Nous trouvons la valeur 
$00000B00. que nous ajoutons a 
$00001736 pour obtenir 
$00002236. Cette valeur est 
l'adresse de la routine d'inversion de 
la barre des menus. Cette routine 
n'est pas en ROM puisque l'adresse 
de base de cette derniere est 
$040000. adresse que nous trouvons 
d'ailleurs en $02AE. Nous avons 
constate que les instructions illegales 
commengant par $A9 provoquent 
toujours un branchement sur une 
routine en RAM. alors que celles qui 
debutent par $A8 concernent des 
routines en ROM. 

26 - Nous retournons a la ligne 10. 
apres avoir incremente le pointeur de 
pile de 4. Ainsi. le SP pointe a nou- 
veau sur l'adresse de sauvegarde de 
Dl. comme avant 1' execution de la 
ligne 9. 



10 - Le contenu de D2 (adresse de 
la routine) est place dans la pile a 
l endroit ou se trouvaient les deux 
octets libres et I'ancienne valeur du 
registre d'etat (d'ou l'interet de la 
premiere instruction - SUBQ L 
#2.SP - qui liberait deux octets dans 
la pile). 

11 - Comparaison du code de I'ins- 
truction illegale (dont nous avions fait 
une copie a la ligne 6) avec la valeur 
$ACOO. Le bit "carry" du registre 
d'etat est place a 1 ou a en fonc- 
tion du resultat de la comparaison. et 
sera utilise un peu plus tard (quel- 

ues microsecondes !). 
2 - Les valeurs sauvegardees a la 
ligne 2 sont replacees dans les regis- 
tres Dl. D2 et A2 afin d' obtenir la 
configuration de depart. De meme, le 
SP contient l'adresse qu'il contenait 
lors de l'entree dans la routine, 
adresse ou se trouve maintenant 
l'adresse de la routine. 
13 - Nous utilisons ici le bit "carry", 
positionne par la comparaison de la 
ligne 11. Si le code est inferieur a 
$AC00. ce qui est le cas, nous pas- 
sons a I'etiquette "ETQ3". 
15 - Puisque le SP pointe sur 
l'adresse de la routine. I'instruction 
RTS provoque le branchement. Le 
SP est ensuite incremente de 4. 
pointant ainsi sur l'adresse de retour 
au programme appelant. 



Routine de colcul des odresses des routines en ROM 



1 


041018 


558F 




SUBQ.L 


*2,SP 


2 


04101A 


48E76020 




M0VEM.L 


A2/D2/D1,-(SP) 


3 


04101E 


246F0010 




M0VEA.L 


$0010(SP),A2 


4 


041022 


341A 




novE 


(A2)+.D2 


5 


041024 


2F4A0010 




MDVE.L 


A2,$0010(SP) 


6 


041028 


3202 




M0VE 


D2,D1 


7 


041 02A 


0C42A800 




CMPI 


-$A800,D2 


8 


04102E 


6534 




BCS 


ETCH 


9 


041030 


61 12 




BSR 


ETQ2 


10 


041032 


2F42000C 




MOVEl 


D2,$000C(SP) 


1 1 


041036 


0C41AC00 




CMPI 


*$AC00,D1 


12 


04103A 


4C41AC00 




M0VEM.L 


(SP)+,D1/D2/A2 


13 


04103E 


6502 




BCS 


ETQ3 


14 


041040 


2E9F 




MOVE.L 


(SPK(SP) 


15 


041042 


4E75 


ETQ3 


RTS 




16 


041044 


02420 IFF 


ETQ2 


ANDI 


-$01FF,D2 


17 


041048 


48C2 




EXT.L 


D2 


18 


04104A 


D442 




ADD 


D2,D2 


19 


04104C 


45F80400 




LEA 


$000400,A2 


20 


041050 


34322000 




MOVE 


0(A2,D2),D2 


21 


041054 


D442 




ADD 


D2,D2 


22 


041056 


6506 




BCS 


ETQ4 


23 


041058 


D45802AE 




ADD.L 


S02AE.D2 


24 


041 05C 


4E75 




RTS 




25 


04105E 


D4B802B2 


ET04 


ADD.L 


$02B2,D2 


26 


041062 


4E75 




RTS 




27 


041064 


08820008 


ETQ1 


BCLR 


"8,D2 


28 


041068 


6618 




BNE 


ETQ5 


29 


04 106 A 


61D8 




BSR 


ET02 


30 


041 06C 


2442 




M0VEA.L 


D2.A2 



3 
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3 1 


04106E 


48E700C0 




F10VEM.L 


32 


041072 


4E92 




JSR 


33 


041074 


4CDF0300 




flOVEM.L 


34 


041078 


4CDF0406 


ET06 


MOVEH.L 


35 


04107C 


584F 




ADDQ 


36 


04107E 


4A40 




TST 


TO 

oo 


041080 


4E75 




RTS 


39 


041082 


6IC0 


ETQ5 


BSR 


40 


041084 


2442 




MOVEA.L 


41 


041086 


2F09 




MOVE.L 




041088 


4E92 




JSR 


43 


04108A 


225F 




MOVEA.L 


44 


04108C 


60EA 




BRA 



A1/A0,-(SP) 
(A2) 

(SP)+,A0/A1 

(SP)+,D1/D2/A2 

•4.SP 

DO 

ET02 

D2,A2 

A1,-(SP) 

(A2) 

(SP)+,A1 

ETQ6 



Nous avons etudie un seul cas car il 
n'est pas possible de lcs passer tous 
en revue. Neanmoins, le principe 
reste le meme pour tous les appels 
de routines et rimportant est de 
connaJtre la methode utilisee. Pour la 
routine d'inversion de la barre des 
menus, on peut verifier que notre 
calcul est juste en faisant. sous 
Basic : 

A!=&h2236:CALL A! 



Reservation de memoire 



La documentation qui accompagne 
le Basic Microsoft signale, a juste 
titre, que les routines en langage ma- 
chine doivent etre relogeables, c'est- 
a-dire que leur execution doit pou- 
voir se faire quelle que soit leur posi- 
tion en memoire. La raison de cette 
contrainte est que tout ce qui se 
trouve en memoire vive se deplace 
en permanence. Par exemple, la 
creation d'une variable deplace les 
tableaux de variables prealablement 
definis. Le systeme n'est pas critica- 
ble, puisque le 68000 permet la rea- 
lisation de codes relogeables tres sim- 
plement, mais il peut etre utile de se 
reserver un bloc de memoire situe a 
une adresse connue, et qui n'aurait 
pas la bougeotte, pour faire des 
essais ou installer des tampons. 



Nous vous proposons une petite rou- 
tine qui creee une zone de memoire 
fixe du nombre d' octets de vorre 
choix, en fonction de la valeur conti- 
nue par la variable N! (256 dans 
notre exemple). L'adresse du pre- 
mier octet de la zone est choisie par 
le systeme de gestion de la memoire. 
Les 16 bits de poids fort de l'adresse 
sont places dans Al%, les 16 bits de 
poids faible dans A2%. Le calcul de 
la position du bloc en memoire est 
done facile. 

II faut utiliser cette routine avec pru- 
dence car le systeme cherche tou- 
jours de la place, et fera tout pour en 
trouver, quirte a detruire un bloc de 
memoire relogeable non protege, 
mais utilise par le Basic. Si Ton ne 
prend pas beaucoup de risque en se 
creant un bloc de 256 octets, ce 
n'est pas le cas si Ton essaie de re- 
server 10 Ko. ■ 



1 ' Reservation d"un bloc fixe de M 
octets 

2' 

10 DIM RX()4) 

20 DATA &h4E56Ah0000Ah202E, 
8>h00 1 OAhA 1 1 E Ah226E,&h0008, 
&h3288,&ri226EAh000CAri2008, 
&h4840Ah3280Ah4E5EAh4E75 

30 FOR lfc=0 TO 14READ RS(IS):NE)Cr 

40 A1S-0:A2X=0:N!=256 

50 M!=VARPTR(RX(0)) 

60 CALL MI(N!,VARPTR(At*). 
VARPTR(A2*)) 

70 IF A 1 *<0 THEi AlteA 1 f +65536! 
ELSEAllsAl* 

80 IF A2X<0 THEN A2!*A2**65536! 
ELSE A2bA2t 

90 A!=Al!«6S336r»A2l: 

PRINT "Le premier des" N! "octets se 
trouve o rodrwee - A! 



Source de lo routine 



1E56 
202E 


0000 
0010 


LINK 
nOUE.L 


fl6,«0 
16(A6),D0 


H1 1 E 
226E 


0008 


-rle^Ptr 
MOUEfl.L 


8(fl6),H1 


3288 




nouE 


fl0,(fl1) 


226E 


OOOC 


IIOUEfl.L 


12(fl6),fl! 


2008 




nOUE.L 


R0,D0 


4810 




SUflP 


DO 


3280 




nouE 


DO, (fll ) 


1E5E 
1E75 




UHLK 
RTS 


R6 



voir .'article "CALL : exemple d'opplicotion" 
deplace une copie du contenu de lo variable N! (situe 
dans la pile) dans le registre de donnee DO 
Trap (voir l'article "Appel des routines en ROM") 
place l'adresse de la variable A2£ dans le registre 
d'adresse Al 

les 16 bits de poids faible de l'adresse du bloc de 
memoire sont places a l'adresse de la variable A2% 
place l'adresse de la variable A IS dans le registre 
d'adresse Al 

copie du registre d'adresse AO dans le registre de 
donnee DO 

inverse les 16 bits de poids fort et les 16 bits de 
poids faible de DO 

les 16 bits de poids fort de l'adresse du bloc de 
memoire (qui sont maintenant dans les deux octets 
de poids faible de DO) sont places a l'adresse ou se 
trouve le variable Al* 
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Entree analogique amelioree 

J. Gunther 



Les entrees analogiques de 1' Apple, 
egalement appelees "entrees des ma- 
nettes de jeux", servent a numeriser 
la valeur d'une resistance, variant de 
a 150 kilo-ohms et contenue. par 
exemple. dans un joystick. 

11 est facile de brancher autre chose 
qu'un potentiometre : une thermis- 
tance (mesure de la temperature), 
une photoresistance (mesure de 
l'eclairage), ou un transistor (mesure 
de l'intensite) peuvent etre utilises 
par certaines applications. 

En Basic, les entrees analogiques 
sont mesurables par les instructions 
PDL (0) a PDL (3) qui retournent 
une valeur comprise entre et 255 
(en pratique, l'interpreteur Applesoft 
se contente d'appeler la routine 
PREAD situee en $FB1E). 
Pour utiliser ces entrees comme ins- 
trument de mesure, il serait interes- 
sant d'avoir une meilleure resolution. 



Le principe general est de decompter 
le temps de decharge d'une capacite 
a travers la resistance etudiee. Le 
"top" de depart est donne par un 
appel a la memoire $C070, et le 
"top" d'arrivee par la remise a zero 
du bit 7 de la memoire $C064 + X, 
X etant le numero de 1' entree. 
Le petit programme suivant : 

LDX HO 



BOUCLE 



LDA 
LDA 
I NX 
BIT 
BMI 
RTS 



SCO 70 

*C0 64 
BOUCLE 



montre qu a la sortie, le contenu du 
registre X varie de a 255, puis re- 
vient a et termine vers 130 lorsque 
Ton tourne le potentiometre. La re- 
solution peut done etre amelioree. 



Le probleme consiste a determiner le 
nombre de tours effectues. Par le 
procede ci-dessus. une valeur de 40 
en sortie n'indique pas si la resis- 
tance se trouve a 40 ou a 255 + 40. 

C'est done l'objet du programme 
ANALOG, qui ameliore considerable- 
ment la resolution (environ 3 fois). 
En contre-partie. le temps de recher- 
che peut sembler long (jusqu'a 2 se- 
condes) mais toutes les applications 
des entrees analogiques de 1' Apple 
ne concernent pas des jeux video a 
haute vitesse ! 

Pour rester simple, le programme ne 
controle que l'entree numero (il 
faut modifier la variable d' assem- 
blage ENTREE du source) et stocke 
le resultat aux adresses 00 et 01. Le 
programme ANALOG. DEMO fournit 
une demonstration. 



1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
1 1 
12 

13 

14 
15 
16 
17 
18 
19 

20 

21 
22 
23 
24 
25 
26 
27 
28 

29 
30 

31 
32 



*****»******«•***#*********#** 
« ANALOG * 

***************************** 

* J. Gunther 
* 

» assembl ( AA/29sep84 Big Mac 
* 

* Programme peniiettant une lecture 
3 haute resolution des 

* entries analogiques. 



numCno pad 
page z(ro 



top de d<p 
double bou 



ENTREE = 

die ou autre 
VAL = *00 

pour s i mp 1 '.-tier 

LDA ttl 
STA VAL+1 
ST A VAL 

DEBUT LDA *C070 

ar t 

LDX VAL 
cle d'attente 

LDY VAL+1 
BOUCLE DEX 

BNE BOUCLE 
DEY 

BNE BOUCLE 



LDA *C064+ENTREE 

BPL FINI fini si < 

*80 

LDA «*80 

B0UCLE2 BIT *C064+ENTREE 1 a i sse 1 
a dCcharqe se terminer 

BMI B0UCLE2 



33 INC VAL 
1 es comp teurs 

34 BNE DEBUT 

35 INC VAL+1 

36 INC VAL 

37 BNE DEBUT 

38 FINI RTS 



i ncr {men te 



=jmp 



*8000 .8029 



8000- 


A? 


01 


85 


01 


85 


00 


AD 


70 


8008- 


CO 


A6 


00 


A4 


01 


CA 


DO 


FD 


8010- 


88 


DO 


FA 


AD 


64 


CO 


10 


1 1 


8018- 


A? 


80 


2C 


64 


CO 


30 


FB 


E6 


8020- 


00 


DO 


E3 


E6 


01 


E6 


00 


DO 


8028- 


DD 


60 















1 REM »*** ANALOG. DEMO **** 

2 REM AA/29sep84/pour J. Gunther 

3 ONERR GOTO 99 

10 GR : C0L0R= 2: FOR I = TO 47: HLIN 
0,39 AT I: NEXT : TEXT : HTAB 1: V 
TAB 1 

20 INVERSE : PRINT " DEMONSTRATION DE L 
ECTURE ANALOGIQUE ": NORMAL 

30 PRINT CHR* < 4) " BLOAD ANALOG ,A*300 " : 
REM enti>rement relogeable 

40 PRINT : PRINT SPCC 4)"<APPUYEZ SUR C 
TRL-C POUR FINIR)" SPCC 5) 

50 POKE 32,13: POKE 33,14: POKE 34,5: PO 
KE 35,23: HOME : PRINT 

60 CALL 768: PRINT " PDL<0) = " RIGHT* < 
"00" + STR* (257 * < PEEK <1) - 1 
) + PEEK (0) - 1>,3>" ";: GOTO 60 

99 TEXT : HOME 
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Un desassembleur en Applesoft et WPL 

Jean-Frangois Rabasse 



Pom's a deja ouvert ses pages a des 
auteurs. parmi les plus "prestigieux". 
qui s'etaient attaches a demontrer 
que le fameux Visicalc pouvait servir 
a bien d'autres choses que celles 
auxquelles il semblait essentiellement 
destine. 

Dans le meme ordre d'idees. je vou- 
drais vous proposer ici une utilisation 
originale de WPL. le petit langage de 
programmation du traitement de 
textes Applewriter 11 et lie. 11 s'agit en 
fait de le mettre a contribution, en 
complement d'un programme en Ap- 
plesoft, pour reconstituer a partir 
d'un code en langage machine un fi- 
chier source en assembleur symboli- 
que exploitable ensuite par LISA 2.5. 

Eyidemment. il ne faut pas artendre 
d'un tel systeme des performances 
extraordinaires en matiere de desas- 
semblage. qu'il s'agisse de la sou- 
plesse des manipulations ou de la ra- 
pidite des traitements. Mais il vous 
permettra neanmoins de realiser un 
desassemblage precis, correct, et 
votre fichier source aura au moins le 
privilege de n'avoir pas ete engendre 
par des moyens tout a fait ordinai- 
res... 

Introduction sous forme 
d'exemple 

Pour illustrer les possibilites du logi- 
ciel. nous allons presenter un pro- 
bleme concret de desassemblage. ap- 
plique a un petit morceau de la ROM 
Applesoft, situe entre les adresses 
$D31F et $D392. Ce fragment n'a 
pas grande signification en lui meme. 
mais comporte une zone de donnees 
et une zone de programme. 

Voici le listing que Ton obtient avec 
la commande L du moniteur : 

Li st i ng 1 



031F- 


46 


4F 




LSR 


*4F 


D321- 


52 






??? 




D322- 


40 


55 


4C 


EQR 


*4C55 


D325- 


41 


20 




EOR 


<S20 , 


D327- 


54 






??? 




0328- 


4F 






??? 




0329- 


4F 






??? 




D32A- 


20 


43 


4F 


JSR 


*4F43 


D32D- 


4D 


50 


4C 


EOR 


*4C50 


0330- 


45 


08 




EOR 


*08 


D332- 


43 






??? 




0333- 


41 


4E 




EOR 


(*4E, 


0335- 


27 






??? 




0336- 


54 






??? 




0337- 


20 


43 


4F 


JSR 


*4F43 


D33A- 


4E 


54 


49 


LSR 


*4«54 


0330- 


4E 


55 


C3 


LSR 


*C555 


D340- 


55 


4E 




EOR 


*4E.X 


D342- 


44 






??? 




D343- 


45 


46 




EOR 


*46 


0345- 


27 











0346- 


44 






??? 






0347- 


20 


46 


55 


JSR 


*5546 




D34A- 


4E 


43 


54 


LSR 


S5443 




D34D- 


49 


4F 




EOR 


»«4F 




D34F- 


CE 


20 


45 


DEC 


*4520 




0352- 


52 






??? 






D353- 


52 






??? 






0354- 


4F 






??? 






0355- 


52 






??? 






0356- 


07 






??? 






D357- 


00 






BRK 






0358- 


20 


49 


4E 


JSR 


»4E49 




D35B- 


20 


00 


0D 


JSR 


• 0000 




D35E- 


42 






•n? 






D35F- 


52 






■>->-> 






D360- 


45 


41 




EOR 


«41 




D362- 


4B 






??? 






D363- 


07 






70*5 






D364- 


00 






BRK 






D365- 


BA 






T3X 






0366- 


E8 






I NX 






0367- 


E3 






I NX 






0368- 


E8 






I NX 






0369- 


E3 






I NX 






D36A- 


BD 


01 


01 


LDA 


*0 I 1 


X 


D36D- 


C9 


81 




CMP 


#*81 




036F- 


00 


21 




BNE 


*D392 




D371- 


A5 


36 




LDA 


*86 




0373- 


00 


OA 




BNE 


SD37F 




0375- 


B0 


02 


1 


LDA 


*0102 


X 


D378- 


85 


85 




STA 


*85 




D37A- 


BD 


03 


a : 


LDA 


*0103 


X 


D37D- 


35 


86 




STA 


*86 




D37F- 


00 


03 


01 


CMP 


*0103 


x 


0332- 


DO 


07 




BNE 


*D38B 




0334- 


A5 


35 




LDA 


*35 




0386- 


DD 


02 


01 


CMP 


*0102 


X 


0399- 


FO 


07 




BEQ 


*D392 




038B- 


8A 






TXA 






D38C- 


13 






CLC 






D38E- 


69 


12 




ADC 


«*12 




D38F- 


AA 






TAX 






0390- 


DO 


08 




BNE 


*036A 




0392- 


60 






RTS 







Ce listing met bien en evidence la 
zone de donnees ($D31F a $D364). 

Le module Applesoft du desassem- 
bleur propose (programme 
DSMTEXT) utilise la routine L du 
moniteur. plus des possibilites de lis- 
ting en hexadecimal ou en ASCII. 
Les listings realises, au moyen de 
commandes sur lesquelles nous re- 
viendrons. sont crees a l'ecran ou sur 
disquette. 

A partir des deux commandes : 

D31FD364A 

D365.D392L 

il donne le resultat suivant : 



Listing 2 

D31F- ASC 
D331- ASC 
D332- ASC 
D33F- ASC 



' FORMULA TOO C0MPLE' 
"X- 

'CAN'T CONTINU- 



D35E- 
D363- 
D365- 
D366- 
D367- 
D368- 
D369- 
D36A- 
D36D- 
D36F- 
D371- 
D373- 
0375- 
D373- 
D37A- 
D37D- 
D37F- 
D382- 
D384- 
D386- 
D389- 
D38B- 
D38C- 
D38D- 
D38F- 
D390- 
D392- 



ASC 
HEX 
BA 
E8 
E8 
E3 
E8 

BD 1 
C9 31 
DO 21 
A5 86 
DO OA 
BD 02 
35 85 
BD 03 
85 86 
DD 03 
DO 07 
A5 85 
DD 02 
F0 07 
8A 
18 

69 12 
AA 

00 D8 
60 



BREAK ' 
700 

TSX 
I NX 
I NX 
I NX 
I NX 
01 LDA 
CMP 
BNE 
LDA 
BNE 
01 LDA 
STA 
01 LDA 
STA 
01 CMP 
BNE 
LDA 
01 CMP 
BEQ 
TXA 
CLC 
ADC 
TAX 
BNE 
RTS 



$0101 ,X 

itsei 

*D392 
*86 
SD37F 
♦0102.X 
• 85 

*0103,X 
*86 

*0103,X 

*D38B 

*85 

SO 102.X 
*D392 



#*1 2 

SD36A 



D340- ASC 

D34F- ASC 

D350- ASC 

D356- HEX 0700 

D358- ASC ' IN 

D35C- HEX 000D 



UNDEF'D FUNCTIO' 
N" 
ERROR' 



La syntaxe choisie pour le desassem- 
blage en ASCII est la syntaxe LISA, 
avec les options ASCII positif (bit de 
poids fort a - ASC) ou negatif (bit 
de poids fort a 1 - ASC"). et passage 
en HEX pour les codes de controle. 

L'etape suivante consiste a remettre 
en forme la presentation des lignes 
pour obtenir une syntaxe assembleur 
"source", puis a realiser I'analyse du 
texte : 

• rassembler les arguments. 

• creer les tables des variables (page 
et adresses 4 chiffres). 

• introduire des noms symboliques 
et eliminer toutes les adresses en 
tete. 

C'est un travail typique de traitement 
de texte. c'est pourquoi on fait main- 
tenant appel a un module ecrit en 
WPL (DSMSYMB) qui. a partir du fi- 
chier disque genere par DSMTEXT 
puis relu en Applewriter. donne le lis- 
ting suivant : 

INS 

PROGRAMME TEST 

TABLE PAGE 
Z86 EPZ $86 
Z85 EPZ $85 

•TABLE DES ADRESSES 
W0101 EQU $0101 
W0 102 EQU $0102 
W0 103 EQU $0103 



ORG $D31F 
OBJ $800 

LBD31F ASC FORMULA TOO C 
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mmm 



4! 



OMPLE' 

ASC "X" 

ASC'CANT CONTINU' 

ASC "E" 

ASC 'UNDEF "D FUNCTIO' 

ASC "N" 

ASC ' ER ROR' 

HEX 0700 

ASC ■ IN • 

HEX 0001) 

ASC BREAK " 

HEX 0700 

TSX 

INX 

INX 

INX 

INX 

LBD36ALDA W0101.X 

CMP #$81 

BNE LBD392 

LDA Z86 

BNE LBD37F 

LDA W0102.X 

STA Z85 

LDA W0103.X 

STA Z86 
LBD37F CMP W0103.X 

BNE LBD38B 

LDA Z85 

CMP W0102.X 

BEQ LBD392 
LBD38B TXA 

CLC 

ADC #$12 
TAX 

BNE LBD36A 
LBD392 RTS 
END 

Les noms symboliques sont crees ar- 
tificiellement en utilisant les chiffres 
de l'adresse correspondante. prece- 
des d'une lettre (indispensable pour 
l'entree sous l'assembleur). La lettre 
est Z pour une variable page 0, W 
pour une variable a 4 chiffres hexa et 
LB pour une variable "Label" (point 
d'entree dans la zone desassemblee). 
Le programme DSMSYMB rajoute 
de plus tout ce qui est necessaire a 
l'entree sous LISA : acces a 1'editeur 
(INS), directives ORG et OBJ. fin de 
source END. et. invisible sur le listing 
mais neanmoins present, le CTRL-E 
permettant la sortie de 1'editeur. 
Le fichier obtenu est un fichier 
TEXT, disponible sous Applewriter. 
On le transforme en source assem- 
bler en tapant, a partir de LISA 
bien sur. la commande CTRL-D 
EXEC "Norn du fichier". 

Programme de 

desassemblage 

DSMTEXT 

Description 

Ce programme en Applesoft est 
assez court et decoupe en petits 
sous-programmes. Son analyse ne 
devrait pas poser de problemes. mais 
reclame quelques precisions : 
- Le programme, prevu pour 



coexister avec un code machine, 
peut etre charge n'importe ou en 
RAM. par ajustement du pointeur 
"Debut de Basic ". II determine son 
adresse de chargement (ligne 2030) 
et positionne HIMEM de maniere a 
occuper exactement 8000 octets tout 
compris (ligne 2045). Tout le reste 
de la RAM est protege. 

— II disassemble en mnemoniques 
au moyen de la routine LIST du mo- 
niteur. La routine complete desas- 
semblant par blocs de 20 instruc- 
tions, on utilise la sous-routine 
$F8D0 qui disassemble une instruc- 
tion a l'adresse PTR = $3A. et re- 
tourne la longueur (1. 2 ou 3 octets) 
a l'adresse LG = $2F (ligne 2040). 

— Pour afficher la valeur d'un octet 
en hexadecimal, on utilise la routine 
moniteur $FDDA (ecriture en hexa 
du contenu de I'accumulateur). par 
I' intermediate dune mini routine 
machine appelee PA. On POKE la 
valeur de I'octet a afficher dans une 
adresse "boite a lettres" $06. et on 
appelle PA qui se resume a "LDA 
$06 - JMP $FDDA". Ce code de 5 
octets est POKe lors de l'initialisation 
dans la ligne Basic 1 (ligne A NE 
PAS MODIFIER OU SUPPRIMER). 

— Pour convertir en decimal les 
adresses hexa saisies au clavier, on 
utilise la technique dite "du faineant" 
consistant a ne pas refaire ce que le 
moniteur fait si bien. Les adresses 
hexa. sous forme de variables chai- 
nes sont introduites aux adresses 
RAM $06 a $09 par la technique 
classique de S.H.LAM. (lignes 34 a 
38). Les adresses decimates sont re- 
cuperees par des doubles PEEK. 
L' inconvenient de cette methode. par 
ailleurs tres rapide a programmer, est 
que Ton ne teste pas la validite des 
symboles frappes (0 a 9 et A a F). Si 
vous entrez une chatne qui n est pas 
la representation valide dune 
adresse hexa. le moniteur proteste. 
fait BIP et vous abandonne "plante" 
sous moniteur. Pas de panique. faites 
CTR1-C, RETURN. GOTO 1000 
(surtout pas RUN). RETURN, et c'est 
reparti sans perte d'informations. sauf 
votre derniere commande (la mau- 
vaise). 

— Enfin dernier point et peut-etre le 
plus important. Apple Computer Inc. 
societe sympathique au demeurant, 
n'a pas prevu que Ton ait envie 
d'utiliser simultanement la routine 
moniteur LIST et la routine RWTS 
du DOS. Ces deux routines ont en 
commun 4 adresses page 0. de $2C 
a $2F. Cela ne gene pas RWTS qui 
utilise ces adresses pour des stocka- 
ges temporaires mais chaque appel 
au disque modifie les variables de 
LIST qui fait alors n'importe quoi. 
Comme LIST est en ROM on la 
laisse tranquille et on "demenage" 
les variables de RWTS des adresses 



$2C a $2F aux adresses $FC a $FF 
(ligne 2065). Ceci impose d'ailleurs 
d'utiliser DSMTEXT avec un DOS 
tout a fait standard et non reloge. 
Comme chaque fois que Ton se 
trouve avec un DOS exotique en 
machine, il est preferable de suppri- 
mer la commande IN1T (ligne 2070). 

Utilisation 

Pour une utilisation simple et rapide. 
le programme fonctionne avec un 
systeme de touches cles. donnant 
acces a des fonctions rappelees par 
un menu en haut d'ecran. Lorsqu'on 
lance le programme, on se trouve en 
mode attente LIST donnant acces a 
4 commandes. C. E. X et W. 

Listing d'une zone memoire 

Frapper la touche C (sans RETURN), 
puis les adresses de debut et de fin 
de la zone a lister, suivant la syntaxe 
classique du moniteur ADR1.ADR2 
(4 chiffres hexa obligatoires par 
adresse, separes par un point). Frap- 
per ensuite une lettre : L pour disas- 
sembler par la routine moniteur, H 
pour lister en hexadecimal. A pour 
lister en ASCII. Terminer par RE- 
TURN. 

Le listing est execute a l'ecran. On 
peut l'interrompre, puis le relancer a 
l'aide de la barre d'espace. On peut 
le terminer avant la fin par la touche 
Escape. 

Le programme demande ensuite si la 
commande doit etre memorisee. A 
vous de voir si le resultat vous satis- 
fait, le but etant de creer un petit fi- 
chier de commandes de desassem- 
blage successives. permettant de 
constituer un fichier source combi- 
nant l'analyse des zones de donnees 
(ASC ou HEX) et celles des instruc- 
tions de l'assembleur (voir l'exemple 
du Listing 2 presente plus haut. ob- 
tenu par un fichier a 2 commandes). 
Le programme autorise jusqu'a 10 
commandes successives. ce qui 
s'avere suffisant pour traiter la majo- 
rity des cas. 

Le travail ainsi effectue. on retourne 
en mode attente LIST. 

Edition des commandes 

La frappe de E fait passer dans un 
mini editeur qui recapitule les 
commandes de desassemblage (si 
vous en avez deja memorisees, sinon 
un -E-est affiche), et permet d'en 
supprimer (S), de modifier l'ordre 
des commandes (D), ou d'en editer 
pour correction eventuelle (E). 
On quitte 1'editeur (Q), pour revenir 
en mode LIST. 

Execution des commandes 

La frappe de X lance l'execution a 
l'ecran du desassemblage. les 
commandes en memoire etant exe- 
cutes en sequence. La barre d'es- 
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pace et Escape jouent le meme role 
que dans l'execution au coup par 
coup. A la fin, retour au mode LIST. 

Creation du fichier disque 

Lorsque 1' execution de voire se- 
quence de commandes fournit un re- 
sultat conforme a vos voeux. la 
fiappe de W demarre la creation du 
fichier sur disque. Apres avoir de- 
mands le nom du fichier et les adres- 
ses de debut du code machine, le 
programme relance un listing mais 
sur la disquette, puis revient en 
mode LIST. 

Attention, le programme ne de- 
mande pas de numero de lecteur; si 
vous en possedez plusieurs, assurez- 
vous que le lecteur implicite contient 
la bonne disquette destination du fi- 
chier texte (celui-ci devant necessai- 
rement se trouver sur un disque qui 
contient les deux programmes WPL 
DSMSYMB et DSMSYMB.2). 

Place en memoire 

Comment disposer en RAM le code- 
machine a disassembler et ie pro- 
gramme Applesoft DSMTEXT ? 
En general, il est plus pratique de 
charger le code-machine a son 
adresse reelle de fonctionnement. 
Ceci facilite la lecture des listings de 
desassemblage qui comportent beau- 
coup de sauts ou d'appels de sous- 
routines. Si le code est a une adresse 
superieure a $2800, vous lancerez 
alors DSMTEXT par un simple RUN. 
Sinon, il vous faudra d'abord remon- 
ter le pointeur debut de BASIC der- 
riere le code binaire. 
II existe un certain nombre de cas ou 
le code ne peut pas erre lu a son 
adresse reelle de fonctionnement : 
programme machine qui "tourne" en 
carte langage, ou bien dans l'exten- 
sion RAM de la carte Text du He. ou 
encore qui occupe la place habituelle 
du DOS. 

On devra alors charger le code ail- 
leurs. Le programme prevoit la possi- 
bilite de faire un decalage d'adresses, 
mais par remplacement du premier 
caractere hexa de 1' adresse et non 
par calcul (WPL n'est pas reellement 
adapte pour effectuer des calculs en 
hexadecimal). II est done absolument 
indispensable de deplacer le code en 
conservant les rrois chiffres bas de 
l'adresse. Le remplacement est effec- 
tue pour deux chiffres successifs : un 
programme fonctionnant a l'adresse 
$D04A. pourra etre charge en RAM 
a $404A par exemple. toutes les 
adresses en $4xxx seront remplacees 
par $Dxxx et les adresses $5xxx par 
$Exxx. Ceci limite a 4k la taille des 
codes desassemblables. Cette restric- 
tion n'est pas genante dans la me- 
sure ou la limite pratique des codes, 
imposee par Applewriter, lui est infe- 
rieure. 



Les adresses reelle et d'implantation 
du code-machine sont demandees 
par DSMTEXT au moment de creer 
le fichier texte (commande W). 

Programme de 
traitement DSMSYMB 

Une fois cree le fichier texte, "reboo- 
tez" le systeme avec Applewriter //, 
puis demarrez le programme WPL 
par la commande habituelle : CTRL- 
P puis DO DSMSYMB. Le pro- 
gramme vous demande le nom du fi- 
chier texte et vous pouvez enfin aller 
prendre un repos bien merite, le 
reste du traitement etant automati- 
que. 



u 




Lorsque le programme est termine. 
le fichier texte definitif se trouve en 
memoire Applewriter pour consulta- 
tion et sur le disque sous le nom du 
fichier original produit par DSMTEXT 
(ce fichier original est bien sur 
perdu). Ce fichier est pret'a une en- 
tree sous LISA en mode EXEC. 
Une remarque : le programme 
DSMSYMB utilise deux fichiers tem- 
poraires nommes REF et PGO, qui 
sont supprimes du disque en fin de 
travail. Assurez-vous de ne pas utili- 
ser une disquette qui contient des 
programmes personnels portant un 
de ces deux noms, il leur arriverait 
malheur. 

Le programme WPL a du etre scinde 
en deux modules (DSMSYMB et 
DSMSYMB.2). car Applewriter limite 
a 2K la zone reservee a WPL. II 
n'appelle pas de commentaires parti- 
culiers, toutes les operations successi- 
ves etant signalees par un message a 
l'ecran (et, accessoirement, les mes- 
sages servent a documenter le lis- 
ting). 

L' operation la plus longue est la 
creation des tables d'adresses (debut 
du module 2). Pour un code impor- 
tant (2 a 3K) 1' operation peut pren- 
dre d'une demi-heure a plus d'une 
heure (e'est I'occasion ou jamais de 
profiter du beau temps...). 

Bilan de 1'operation 

Le produit final est. comme on l'a 
montre dans le petit exemple de de- 



part, un pseudo programme source. 
Sur le plan de la syntaxe, il est pret a 
etre exploite sous assembleur. On 
peut, si on le desire, profiter de ce 
que le fichier est encore en memoire 
sous Applewriter. pour remplacer les 
noms symboliques generes par 
DSMSYMB par des noms plus expli- 
cites. On consultera les tables 
d'adresses creees et une documenta- 
tion sur les routines systeme et leur 
appellation standard. On utilisera 
alors la fonction "recherche et rem- 
placement" d' Applewriter. Par exem- 
ple : <CTRL-F> /WFD 1 B/KEYIN/A 
ou bien 

<CTRL-F>/WFDED/COUT/ 
A etc.... 

Ne pas oublier de sauvegarder alors 
le fichier modifie avant de "booter" 
LISA. 

La taille maximale des codes desas- 
semblables est fonction de la capacite 
memoire de voire systeme sous Ap- 
plewriter (environ 27K sur un Apple 
He, ou Apple 11+ avec carte langage, 
environ 47K sur un He avec carte 80 
colonnes etendue). 

La routine LIST du moniteur genere 
en moyenne 30 caracteres par ligne 
destruction. Une instruction corres- 
pondant a 1, 2 ou 3 octets, comptez 
un rapport 15 entre la taille du code 
machine et celle du fichier texte, un 
peu moins si le code comporte beau- 
coup de tables et zones de donnees. 

II est important de signaler un gros 
point faible de ce logiciel de desas- 
semblage : il ne sait pas traiter 
completement les adressages imme- 
diats. 

Soit par exemple le code machine 
"A9 41". Ce code sera disassemble 
par LDA #$41 mais quelle est Ins- 
truction source originale ? On peut 
proposer : 

• LDA #$41 

• LDA #'A' 

• LDA #TOTO si TOTO=$6041 

• LDA /LULU si LULU = $41FF 

Les "matheux" diront qu'il n'y a pas 
bijection du programme source sur le 
code objet. 

En pratique on devra done etre at- 
tentif a la signification des adressages 
immediate. Dans l'ensemble le desas- 
semblage sera correct, mais dans des 
cas tels qu'un code utJlisant une table 
de donnees. avec des instructions as- 
sembleur du type "LDA #TABLE - 
LDY /TABLE", le desassemblage en 
arguments immediats perd sa signifi- 
cation et le nouveau code objet ne 
fonctionnera plus si Ton decale les 
adresses du programme source. II 
sera alors necessaire de retoucher les 
instructions source pour reintroduire 
un nom symbolique. 

En conclusion, si ce logiciel peut de- 
charger le programmeur (patient) de 
la partie "bestiale" du travail de de- 
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sassemblage. il ne dispense pas, heu- 
reusement, de reflechir et de 
comprendre comment fonctionne le 
code que Ton est en train de traiter, 
avant de le modifier. 

Note aux lecteurs qui souhaitent 
utiliser le programme et ne pos- 
sedent pas la disquette d'accom- 
pagnement 

Pour entrer le programme Applesoft 
d'apres le listing, pas de problemes. 
mais quelques indications peuvent 
etre utiles pour le WPL (a entrer 
sous Apple writer). 

1) ATTENTION a la frappe! WPL 
ne supporte pas les "typos" approxi- 
matives et, en general, une erreur de 
frappe se traduit. non par un mes- 
sage sympathique tel que SYNTAX 
ERROR a tel endroit, mais par ... 
"rien du tout". Le programme sem- 
ble fonctionner et. a la fin, le resultat 
est totalement "farfelu". Ce type de 
BUG est penible a traquer. 
Attention aussi a ne pas oublier le 
blanc initial des lignes instructions. 
Seules les lignes portant une eti- 
quette commencent en colonne 1. 

2) Un certain nombre d' instructions 
effectuent des recherches et rempla- 
cements sur des chaines comportant 
un nombre precis de Blancs (Es- 
pace). II n"est pas toujours evident de 
compter des blancs sur un listing et, 
afin de permettre une frappe cor- 
recte, ce dernier comporte un certain 
nombre de lignes de commentaire 
composees de points : P 

Ces lignes signalent le nombre et la 
position des blancs dans l'instruction 
immediatement suivante. 



3) Quelques instructions comportent 

des caracteres de controle, a frapper 

avec la procedure CTRL-V.CTRL- 

x.CTRL-V. Comme ces caracteres 

n'apparaissent pas au listing, voict les 

lignes qui en comportent. le caractere 

etant represents par (CTRL-x). Ces 8 

caracteres seront a remplacer par 1 

caractere controle. 

XI PPR(CTRL-L) 

X3 F##END%(CTRL-E)%# 

X4 PPR(CTRL-L) 

X15 S$D#(CTRL-E)%# 

X18 PPR(CTRL-G)(CTRL-G) 



Note aux lecteurs qui utilisent 
un autre assembleur que LISA 
2.5 

On recapitule ici tous les symboles et 
directives utilises et destines a LISA, 
avec les lignes de programme ou ils 
apparaissent. Ceux qui ont un autre 
assembleur verifieront la syntaxe et 
feront les remplacements eventuels 
(le remplacement doit etre fait avec 
beaucoup de rigueur. sans introduire 
de caracteres blancs supplementaires 
et sans en supprimer). 
La directive ou le symbole sont pre- 
sents entre crochets [ ), avec les 

blancs necessaires. 

• [ HEX ] Assemblage d'une zone 
en hexadecimal 

Dans DSMTEXT ligne 2060 
Dans DSMSYMB ligne X2 

• [ ASC 1 Assemblage d'une zone 
en ASCII 

Dans DSMTEXT ligne 2060 

• ["] Encadre une definition ASC 
"xxxxxxxx" en ASCII negatif (Bit 
7 a 1) 



Ce caractere est defini par 
CHR$(34). dans DSMTEXT lignes 
2055 et 2060. 

• ['] Encadre une definition ASC 
xxxxxxxx' en ASCII positif (Bit 7 
aO) 

CHR$(39) dans DSMTEXT lignes 
2055 et 2060. 

• [INS] Entree dans lediteur de 
LISA (en mode EXEC) 

Dans DSMSYMB.2 ligne X16 

• [ ORG $) Origine du programme 
a assembler 

Dans DSMSYMB.2 ligne XI 7 

• | OBJ $800] Origine du code 
objet en machine 

Dans DSMSYMB.2 ligne X17 

• [ END) Fin du programme source 
Dans DSMSYMB ligne X3 

• [(CTRL E)] Sortie de lediteur de 
LISA 

Dans DSMSYMB ligne X3 
Dans DSMSYMB.2 ligne X15 

• [ EQU $] Affectation d'une 
adresse hexa a une variable 

Dans DSMSYMB.2 ligne X6 

• 1 EPZ $] Affectation d'une adresse 
page a une variable 

Dans DSMSYMB.2 ligne XI 1 

• [;] Debut dune ligne commen- 
taire. Ce symbole est destine a 
LISA mais est aussi utilise abon- 
damment comme marqueur par 
DSMSYMB. Si votre assembleur 
utilise un autre symbole commen- 
taire (etoile ou petit Mickey), faites 
bien les remplacements partout : 

Dans DSMSYMB.2 lignes X5, X7. 
X8. X9. X10. X12, X13. X14, X16 
(2 fois). X17 (2 fois). 



] LIST: DSM. TEXT 

1 REM ***** 

2 GOSUB 2005: GOTO 1015 
10 REM 

12 REM AFFICHAGE D'UNE ADRESSE HEXA 

14 PRINT : POKE 6, FN HI < AD) : CALL PA: P 

OKE 6, FN L0<AD): CALL PA: PRINT " 

-" ; : RETURN 

20 REM 

22 REM DESASSEMBLE DES ADRESSES Al A A2 
24 FOR AD = AKIC) TO A2<IC): POKE PTR, 
FN L0<AD): POKE PTR + 1 , FN HI (AD) 
: CALL LI :AD = AD + PEEK <LG): GO 
SUB 305: NEXT : RETURN 

30 REM 

32 REM CONVERSION DECIMALE DES ADRESSES 

DE LA COMMANDE N* 
34 B* = '06:" + MID* <N*(IC),3,2) + " " 
+ MID* <N*< IC) , 1 ,2) ♦ " " ♦ MID* 
<N*<IC),8,2) + « " + MID* <N*(IC 
) ,6,2) ♦ N D9C6G" 
36 FOR I = 1 TO LEN <B*): POKE 511 ♦ I , 
ASC ( MID* (B*,I,1)) + 128: NEXT 
: POKE 71 .0 : CALL - 144 
38 AKIC) = FN DP<6):A2<IC) = FN DP(8): 
RETURN 

40 REM 



42 REM NOUVELLE LIGNE DE DESASS. 
44 DEB = 0:CP = 0: GOSUB 14: PRINT M*<FS) 
j : RETURN 

50 REM 

52 REM DES. EN HEXA 

54 DEB = 1:FS = 1: FOR AD = AKIC) TO A2< 
IC) 

56 IF DEB THEN GOSUB 44 

58 POKE 6, PEEK <AD) : CALL PA : CP = CP + 
1: IF CP = 12 THEN DEB = 1: PRINT 
CL*<FS) : 

60 GOSUB 305: NEXT : PRINT CL*(FS);: RET 

URN 
100 REM 

105 REM TEST CARACTERE 

110 K = PEEK <AD): ON K / 32 + 1 GOTO 12 

0,125,125.125,120 
115 FO = 2: RETURN 
120 FO = 1 : RETURN 
125 FO = 3: RETURN 
200 REM 

205 REM DESASS. EN ASCII 

210 AD = AKIC): GOSUB 105:FS = FO : GOSUB 
44 

215 FOR AD = AKIC) TO A2CIC): GOSUB 105 
220 IF FO < > FS THEN DEB = 1: PRINT CL 

*<FS);:FS = FO : GOSUB 44 
225 IF DEB THEN PRINT CL*<FS);: GOSUB 4 
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230 ON FS GOTO 235,240,240 

235 POKE 6, PEEK (AD): CALL PA: GOTO 245 
240 PRINT CHR* <K + <FS - 3) » 128); 
245 CP = CP + 1: IF CP = 12 + 12 * INT ( 

FS / 2) THEN DEB = 1 
250 GOSUB 305: NEXT : PRINT CL*(FS>;: RE 

TURN 
300 REM 

30 5 REM PAUSE 

310 IF UIR THEN RETURN 

315 IF PEEK <4?152) = 155 THEN POKE 4? 

168,0:AD = A2(IC):IC - IM: RETURN 
320 IF PEEK ( 491 52) < > 1 60 THEN RETU 

RN 

325 POKE 49168,0 

330 IF PEEK (49152) = 160 THEN POKE 49 

168,0: RETURN 
335 IF PEEK (49152) = 155 THEN 315 
340 GOTO 330 
40 REM 

40 5 REM ANALYSE DE LA COMMANDE 

410 C*(IC) = RIGHT* (N*(IC),1): IFN*(IC 

) = "UP AND IM = > THEN POP : 

GOTO 60 5 

415 IF N*(IC) = " E" THEN POP : GOTO 300 


420 IF N*(IC) = "X" AND IM = > THEN 

POP : GOTO 705 
425 IF LEN (N*(IO) < > 1 OR MID* (N 

*( IC> ,5, 1 ) < > " . " THEN 450 
430 GOSUB 32 

435 IF C*(IC> = "L" THEN 22 
440 IF C*(IC) = "H" THEN 52 
445 IF C*(IC) = "A" THEN 205 
450 PRINT 

455 PRINT CHR* (4); "CLOSE" 
460 PRINT CHR* ( 7) ;" COMMANDE ";N*(IO;" 
INCORRECTE !": POP : GOTO 1015 

600 REM 

60 5 REM CREATION DU FICHIER TEXTE 

610 HOME : PRINT "CREATION DU FICHIER TE 

XTE" : PRINT 
615 INPUT "NOM DU FICHIER ? " ; NA* : IF NA 

* = "" THEN 1015 
620 PRINT : PRINT "ADRESSE ORIGINE VRAIE 
DU CODE MACHINE ?" : PRINT "(4 CHI 

FFRES HEXA) *" j : INPUT "":0 

G* 

625 PRINT PRINT "IMPLANTATION ? ( OU RE 
TURN SI LA MEME)": PRINT "(4 CHI FF 
RES HEXA) *»;: INPUT " " ; OB* 

630 IF OB* = "" THEN OB* = OG* 
635 IF RIGHT* (0G*,3) < > RIGHT* (OB* 
,3) THEN PRINT CHR* (7); CHR* (7 
): PRINT "SEUL LE PREMIER CHIFFRE 
PEUT CHANGER.": PRINT " DESOLE '": 
GOTO 1015 

640 B* = LEFT* ( OB* , 1 ) : G* = LEFT* ( OG* , 

1 ) 

645 T* = "<A1>". + B* + "<R1>" ♦ G* 

650 IF B* = "9" THEN B* = "3" 

655 IF G* = "9" THEN G* = "3" 

660 T* = T* + "<A2>" +■ CHR* (1 + ASC (B 

*)) ♦ "<R2>" + CHR* (1 + ASC (G* 

) ) + " < ORG *" + OG* 
665 PRINT CHR* (4); "OPEN " ;NA* ; " .ADRS" 
670 PRINT CHR* (4); "WRITE " ;NA* ; " . ADRS" 
675 PRINT T* 
680 WR = 1 

685 PRINT CHR* (4) ; " OPEN" ;NA* 
690 PRINT CHR* ( 4 );" DELETE" :NA* 
695 PRINT CHR* ( 4) : " OPEN" ;NA* 



700 PRINT CHR* < 4) ; "WRITE" ;NA* 

705 FOR IC = TO IM: GOSUB 405: NEXT 

710 PRINT 

715 IF NOT WR THEN 1015 
720 PRINT CHR* < 4> CLOSE" 
725 WR = 
1000 REM 

1005 REM PROGRAMME PRINCIPAL 
1010 REM 

1015 GET N*(JC): PRINT N*(JC);: IF N*(JC 

> < > "C" THEN PRINT :IC = JC : G 

OSUB 405: GOTO 1035 
1020 IF JC = 10 THEN PRINT : PRINT CHR 

* <7>i CHR* ( 7) j " PLUS DE PLACE ! 

" : GOTO 1015 
1025 INPUT "";N*(JC):IC = JC 
1030 GOSUB 405: PRINT : PRINT 
1035 PRINT "COMMANDE ";N*(JO;" A CONSE 

RVER ? O/N " ; : GET T* : PRINT T* 
1040 IF T* = "0" THEN IM = JC : JC = JC ♦ 

1 • 

1045 IF JC = 9 THEN PRINT CHR* (7); "AT 
TENT I ON , DERNI ERE COMMANDE ": PRINT 
AY ANT ECRITURE DU FICHIER !" 
: PRINT 

1050 GOTO 1015 

2000 REM INITIALISATION 

2005 IM = - 1 

2010 DIM N*( 1 1 ) 

20 15 DEF FN HI (X) = INT (X / 256): REM 

PARTI E HAUTE ADRESSE 
2020 DEF FN LO(X) = X - 256 * FN HI (X) 

: REM PARTI E BASSE 
2025 DEF FN DP(X) = PEEK (X) + 256 * 

PEEK (X + 1): REM DOUBLE PEEK 
20 30 PA = FN DP(103) + 5: REM CODE MACH 
INE POUR SORTIE CONTENU DE *06 EN 
HEXA 

20 35 POKE PA, 165: POKE PA + 1,6: POKE PA 
+ 2,76: POKE PA + 3,218: POKE PA 
+ 4,253 

2040 PTR = 58:LG = 47:LI = 63696: REM DE 

SASSEMBLE 1 INSTRUCTION 
20 45 HI MEM ; PA ♦ 7995 
2050 REM FORMATS, MNEMON I QUES 
2055 CL*(1) = " ":CL*(2) = CHR* (34) + 
CL*( 1 ) :CL*(3) = CHR* (39) + CL*( 

1 ) 

2060 M*(l) = " HEX ":M*(2) = " ASC " 
+ CHR* (34):M*(3) = " ASC " + 
CHR* (39) 

2065 POKE 47439,252: POKE 48687,253: POK 

E 48881,253: POKE 48975,253: POKE 

49015,253: POKE 49033,253: POKE 48 

622.254: POKE 48662.255: POKE 4867 

1 ,255: REM MOD I F RWTS 
2070 POKE 43140,64: REM SUPRESSION INIT 
2075 TEXT : HOME :T* = "ADR1 .ADR2" 
2080 INVERSE : PRINT " " ; : *HTAB 

12: PRINT "C";: NORMAL : PRINT T* ; 

: INVERSE : PRINT "L";: NORMAL : P 

RINT " . . . DESASSEMBLAGE" 
2035 INVERSE : PRINT " DSMTEXT " : : HTAB 

12: PRINT "C";: NORMAL : PRINT T* ; 

: INVERSE : PRINT " H " ; : NORMAL : P 

RINT " . . .LISTE EN HEXA" 
2090 INVERSE : PRINT " ";: HTAB 

12: PRINT "C";: NORMAL : PRINT T* ; 

: INVERSE : PRINT "A";: NORMAL : P 

RINT " . .LISTE EN ASCI I " 

2095 INVERSE : PRINT " LIST ";: HTAB 
12: PRINT "E";: NORMAL : PRINT " . 
EDITEUR DE COMMANDES" 
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2100 INVERSE : PRINT " ";: HTAB 

12: PRINT "X";: NORMAL : PRINT " . 

EXECUTION A L'ECRAN" 

2105 INVERSE : PRINT " " ; : HTAB 

12: PRINT "W" ; : NORMAL : PRINT " . 

. . ECRITURE FICHIER DISQUE" 
2110 PRINT " 



21 15 POKE 34,7: RETURN 
3000 REM 

3005 REM EDITEUR DES COMMANDES 
3010 TEXT : HOME 

3015 INVERSE : PRINT " ";: HTAB 

12: PRINT "S";: NORMAL : PRINT "UP 

PRIMER UNE COMMANDE" 
30 20 INVERSE : PRINT " DSMTEXT » ; : HTAB 

12: PRINT "D";: NORMAL : PRINT "EP 

LACER UNE COMMANDE" 
3025 INVERSE : PRINT " EDITEUR ";: HTAB 

12: PRINT "E" : : NORMAL : PRINT "DI 

TER UNE COMMANDE " 
3030 INVERSE : PRINT " ";: HTAB 

12: PRINT " Q " ; : NORMAL : PRINT "UI 

TTER L' EDITEUR" 
3035 HTAB 12: PRINT " 

30 40 POKE 34,6: HOME 

3045 FOR IC = TO IM: PRINT IC;" -" ;N* 

< IC) ; "-" : NEXT 
3050 POKE 34,20: HOME 
30 55 GET C* 
3060 GOSUB 3155 



3065 IF C* = "S" THEN 3095 
3070 IF C$ = "D" THEN 31 10 

3075 IF C* < > " E" THEN PRINT CHR* (7 

) : GOTO 3050 
3080 PRINT "EDITER NO ? " ; : GET C* : GOSU 

B 3155: PRINT C* : GOSUB 3165 
3085 ON ER GOTO 3080,3090 

3090 HTAB 1: PRINT "?";N*( VAL (C*));: H 
TAB 2: INPUT "";N*( VAL <C*>>: GOT 
3040 

30 95 PRINT "SUPPRIMER NO ? ";: GET C* : G 

OSUB 3155: PRINT C* : GOSUB 3165 
3100 ON ER GOTO 3095,3105 

3105 FOR IC = VAL (C*) TO IM - t >N*<IC> 
= N*(IC + 1): NEXT : IM = IM - 1 : J 
C = JC - 1 : GOTO 3040 
3110 PRINT "DEPLACER NO ? ";: GET C* : GO 
SUB 3155: PRINT C* : I = VAL (C*): 
GOSUB 3165 
3115 ON ER GOTO 3110,3120 

3120 PRINT "DESTINATION NO ? ";: GET C* : 
GOSUB 3155: PRINT C* : I D = VAL <C 
*) : GOSUB 3165 
3125 ON ER GOTO 3120,3130 

3130 KZ* = N*< 10) :N*< 10) = N* (ID): N* (ID) 

= KZ* : GOTO 3040 
3155 IF C* = "Q" THEN GOSUB 2075: POP : 

GOTO 1015 
3160 RETURN 

3165 ER =2: IF C$ > STR* ( IM) OR C* < " 

0" THEN ER = 1 : PRINT CHR* (7) 
3170 RETURN 
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XI PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 
PPR 



PROGRAMME DSMSYMB 



JF-R 



MODULE DSMSYMB NO 1 



AOUT 84 



PREPARAT I 



ON 



PPR 
PPR 
PPR 
PIN 



? =*D 



NOM DU FICHIER 
PPR CHARGEMENT 
NO 
LSD 
B 

PPR 

PPR-OK 

PPR RECHERCHE DES ??? 
B 

P 

A0P2 Ft*- «<& ??" 

? 

PG0X2 
PG0F0P2 

P 

X2 F/- /- HEX/ 
0? 

P 

F/ ??? // 

0? 

PG0A0P2 
F0P2 PPR-OK 

PPR ELIM. DES CODES HEX A 
AOP3 B 

P 

Ftt- tt- ttA 

PG0A0P3 

E 

D 

X3 Ftt* END/C<t» 



0? 

PPR-OK 

PPR RECALAGE DES ADRESSES 

P LECTURE 

PAS*D.ADRS=»C 

PLS*C/A1 >/</N=«A 

PLS*C/R1 >/</N=*B 

PCS/SA/SB/ 

PGOFPREP 

PSRRC 

PAS*D.ADRS=*C 
PLS*C/A2>/</N=«A 
PLS*C/R2>/</N=*B 
PSRRC 
PGOFPREP 
RC B 

P RECALAGE DES INSTRUCTIONS 

Ft»X*A#y.*B#A 

P 

P RECALAGE DES BRANCHEMENTS 
PASBCC=*C 
PSRRECMN 
PASBCS=*C 
PSRRECMN 
PASBVS=*C 
PSRRECMN 
PASBVC=*C 
PSRRECMN 
PASBNE=*C . 
PSRRECMN 
PASBEQ=*C 
PSRRECMN 
PASBMI=*C 
PSRRECMN 
PASBPL=«C 
PSRRECMN 
PRT 
RECMN B 
P 

F/*C **A/*C *SB/A 
P 

PRT 
FPREP PPR 
PPR-OK 



50 



-. 



Pom's n° 16 



- MARQUAGE 



SSD 
PPR 

PPR RECHERCHE DES ARGUMENTS 
NO 

P 

LSDH- 
P 
8 

Fttax* 

0? 
PPR 
PPR 
F/*/W/A 

PPR - ADRS IMMEDIAT 
B 

F<«=X<A 
P 

PPR - ELI M . DES SYMBOLES D'ADRESSAGE 
B 

F/<//A 

P 

B 

F/)//A 

P 

B 

F/.//A 

P 

B 

F/X//A 

P 

B 

F/Y//A 
P 

A0P5 B 
FW0CN9MM 
PG0A0P5 

SREF 
PPR 

PPR-OK 

PPR SAUVEGARDE ARGUMENTS PAGE 
B 

Ft«W&&&«</.t»«A 

P 

B 

F/U/Z/A 
P 

SPGO 
PPR 

PPR-OK 

PPR SAUVEGARDE REFERENCES 

NO 

LREF 

B 

F«W&&Xt*t»A 
P 

PPR 

PPR-OK 
PPR 

PPR PREPARATION TERMINEE 

PPR 

PPR CHARGEMENT DU MODULE DSMSYMB . 2 
PDODSMSYMB . 2 

X4 PPR 
PPR 
PPR 
PPR 

PPR CREATION TABLE DES ADRESSES 
PPR 
PPR 
E 
D 

F<<WFIN>< 
0? 
E 

L*D 
E 
D 

X5 F < <> ; TABLE DES ADRESSES > < 
0? 
P 

PAS*D.ADRS=*C 
PLS*CH0RG *r/.t»N=«A 
PAS*A=*B 
PG0AD1 



DSMSYMB . 2 



STR PPR 
B 

PLSt»OUO<N=«A 
F<U«AX<A 
PCS/*A/FIN/ 
PGOFINI 
AD 1 PPR**A 
B 
P 

FO*A- <>LB*A<A 

PGOREFINT 

B 

F/**A/W*A/A 

P 

E 

D 

X6 F<<U»A EOU **A>< 
0? 

PGOSTR 
PPR 

P LABELS INTERNES 
REFINT B 
F/*«A/LB*A/A 
P 

PGOSTR 
FINI B 

P 

FBXS.&&&- *v. m 

P 

PPR 

PPR-OK 

PPR SAUVEGARDE TABLE ADRESSES 

E 

D 

X7 Fttf»;X* 
0? 
B 

X8 F/;TAB/ 

? 

X9 SREF*;Xt» 
PPR 

PPR-OK 

PPR CREATION TABLE PAGE 
B 

LPGO 

F<<2FIN>< 

0? 

E 

D 

X10 F< <> i TABLE PAGE OX 
0? 
P 
B 

P • • ■ - • • 

F/ #»/ 33/A 
P 

STRO PPR 
B 

PLS*OZ<XN=SA 

F<Z»AX<A 

PCS/»A/FIN/ 

PGOFINIO 

PPR»*A 

B 

F/**A/Z*A/A 

P 

E 

D 

XII F<<Z«A EPZ *«AX 
0? 

P60STRO 
FINIO B 

P 

F/ 33/ »»/A 
P 

PPR 

PPR-OK 

PPR SAUVEGARDE 

E 

D 

XI 2 F»*;/.« 

0? • 

B 

XI 3 F/ j TABLE P/ 
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? 

X14 SPGOt»;X# 
B 

0^ 

XI 5 S*Dt»X» 
PPR 
PPR-OK 

PPR MISE EN FORME DU FICHIER FINAL 

NO 

B 

Xl<& Ft»# I NSXi PROGRAMME «DX;X* 
0? 
LPGO 
LREF 



E 


XI 7 Ft»tt;;< ORG *%BY. OBJ *800% ;Xt» 
0? 
L*D 
PPR 

PPR ET SAUVEGARDE 

S*D 

OFREF 

FPGO 

F*C 

? 

B 

X18 PPR 
PQT 



Les codes ASCII du //e 

Guy d'Herbemont 



J'ai ete interesse par le programme 
"GESMASK modifie" publie dans 
Pom's 14. et brusquement interloque 
en constatant qu'il m'etait impossible 
de sauver le moindre masque par la 
commande CTRL - SHIFT - P. pour- 
tant prevue a cet effet. 

En examinant le programme source 
en assembleur, j'ai constate, a la 
ligne 82. que l'acces a la sauvegarde 
du masque resultait de la frappe 
d'une touche. ou sequence de tou- 
ches, ayant pour code clavier $80. 
J'en ai deduit que les auteurs du 
programme conceme utilisaient un 
Apple II + , sur lequel la frappe de 
CTRL - SHIFT - P. ou encore 
"CTRL - arrobas". correspond effec- 
tivement a la frappe du caractere 
"nul" dont le code clavier est $80. 
Malheureusement. sur un Apple lie, 
il n'en va pas de meme. La frappe 
de CTRL - SHIFT - P est equivalente 
a celle de CTRL - P et retourne $90 
pour code clavier. On comprend 
alors que la comparaison avec $80 



se soit averee desesperement infruc- 
tueuse... 

Considerant en outre que le lie pos- 
sede un double clavier AZERTY / 
QWERTY, j'ai voulu vous proposer 
un petit programme tres simple per- 
mertant de lister les codes de toutes 
les touches du He, dans l'un et 1'au- 
tre cas. afin de rendre service aux 
utilisateurs qui pourraient se trouver 
confrontes comme moi a ce pro- 
bleme de differences de codes. 
Pour en revenir au cas de GES- 
MASK. il apparalt ainsi que, sur le 
He, c'est "CTRL - a" (ou encore 
"CTRL - 0") qu'il faut taper pour 
obtenir $80 si Ton est en AZERTY. 
et "CTRL - 2" (ou "CTRL - SHIFT - 
2") pour le meme resultat si Ton est 
en QWERTY. 

L' utilisation du programme est sim- 
ple : il suffit de taper sur toutes les 
touches de chaque rangee dans les 
differents cas possibles (normal, ma- 
juscules. CTRL et CTRL + SHIFT). 



une fois avec le clavier en mode 
AZERTY et une seconde fois en 
mode QWERTY. 

La version listee ci-dessous vous 
donnera un tableau des codes en 
ASCII positif decimal (tous inferieurs 
a 128). correspondent aux valeurs 
que vous retournerait la foncfion 
ASC si elle fonctionnait correctement 
pour toutes les touches. 

Pour ceux qui s'interessent plutot 
aux codes ecrans negatifs exprimes 
en hexadecimal (valeurs que Ton 
teste en assembleur en sortie d'une 
routine de saisie de caracteres, 
comme dans le cas de GESMASK), 
les petites adaptations suivantes per- 
mettront d'obtenir le tableau souhaite 
de la meme fagon : 

• Saisir et sauver sur disquette la 
petite routine machine ASCII. O 

• Rajouter une ligne "5 PRINT 
CHR$ (4) " BLOAD ASCII.O 

• Remplacer la ligne 210 par "210 
CALL 768" _ 



] LOAD ASCI I . HERBEMONT 




50 


PR I NT 


1 RANGEE 


CTRL 


" ; :N = 


]LIST 






00 












60 


PRINT 


' RANGEE 


X : 


" ; :N = 


1 REM TABLEAU DES CODES CLAVIER 






00 








2 REM 




70 


PRINT 


' RANGEE 


ESP: 


- i :N = 


10 TEXT : HOME : PRINT CHR* (4) 


PRH1 " 




' 








15 PRINT : PRINT SPC< 10)"CODES 


CLAVI ER 


SO 


RETURN 








AZERTY" : G0SUB 20 




200 


FOR I 


= 1 TO 


N 





16 

1 7 
20 
21 
22 
23 
24 
30 

40 



PRINT : PRINT SPC< 10) "CODES CLAVIER 

QWERTY" : GOSUB 20 
PRINT CHR* <4>"PR»0": END 
PRINT "NORMAL": GOSUB 30 
PRINT "SHIFT" : GOSUB 30 
PRINT "CTRL" : GOSUB 30 
PRINT "SHIFT+CTRL" : GOSUB 30 
RETURN 

PRINT "RANGEE ESC: 
00 

PRINT "RANGEE TAB: 
00 



; :N = 14: GOSUB 2 
; :N = 14: GOSUB 2 



210 GET A*: PRINT PEEK <4?152) 
220 NEXT : PRINT : RETURN 



♦300 .30B 

0300- 20 0C FD 20 DA FD A? AO 
0308- 20 ED FD 60 
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STARTUP et saisie de la date en Pascal 

Eric Pascual 



La gestion de directory sous PAS- 
CAL UCSD permet. entre autres 
avantages. de dater les versions de fi- 
chiers automatiquement. Mais cette 
date ne sera correcte que si I'utilisa- 
teur prend systemariquement la 
peine de mettre a jour la date sys- 
teme en "bootant". Or cette opera- 
tion ne peut se faire normalement 
que par 1' option D(ate du FILER. 
Malheureusement, 9 fois sur 10, on 
neglige de le faire. et au bout de 
quelques temps, on ne se souvient 
plus de la chronologie des versions 
de programmes. 

11 est pourtant assez simple d'ecrire 
un petit programme possedant les 
fonctions suivantes : 

- Saisie rapide de la date : rentrer 
uniquement le jour si le mois est in- 
change. 

- Verification de celle-ci. 

- Enregistrement de la nouvelle date 
sur la disquette (pour le prochain 
"boot") et en memoire pour qu'elle 
soit urilisee dans la directory. 

De plus si on appelle ce programme 
SYSTEM. STARTUP, il sera execute 
a chaque "boot", ce qui permet 
d'avoir une date systeme toujours ... 
a jour. 

Les bonnes adresses 

Deux endroits nous interessent: 

- la position de la date systeme sur 



la disquette; 

- la position de cette meme date en 
memoire. 

Pour la premiere, on peut se repor- 
ter, entre autres, a 1' article de M. Cri- 
mont "Un catalogue generalise' en 
Pascal" paru dans le numero 2 de 
Pom's. Pour ceux d'entre vous qui 
n'auraient pas ce numero, rappelons 
que la directory d'un disque PAS- 
CAL occupe les blocs 2 a 5 inclus et 
est structuree comme indique dans le 
listing 1 donne en fin d' article. 

Etant donne que seul le premier bloc 
nous interesse. nous utiliserons une 
variable d'un type legerement diffe- 
rent de REPERTOIRE dans le pro- 
gramme. Le type REPERT n'a de 
description precise que pour l'en- 
tete, le complement a la taille du 
bloc etant occupe par un ARRAY de 
243 octets. En effet, le champ DIS- 
QUE occupe 26 octets, il en reste 
done 486 dans le bloc, ce qui corres- 
pond a la place occupee par notre 
tableau. Pour lire (respectivement 
ecrire) ce bloc, il suffit d'utiliser la 
fonction UNITREAD (respectivement 
UNITWRITE). 

Pour ce qui est de la position en me- 
moire, elle varie selon les versions du 
systeme : 

- version 1.0: $A912, $A913 
(-22254, -22253). 



REPERTOIRE = record 

DISQUE: ENTETE; 
FICHIER: array I1..77! 
end ; 



- version 1.1 : 
(-21992, -21991 



$AA18, $AA19 



Le programme 

II va lire le repertoire sur le disque. 
affiche la derniere date enregistree, 
demande la nouvelle date (en refu- 
sant les entrees incorrectes), puis 
1'enregistre dans le repertoire du dis- 
que et en memoire aux adresses ci- 
dessus. 

Le listing du programme etant abon- 
damment commente. il est inutile de 
reprendre ici sa description detaillee. 
Pour le lancer automatiquement lors 
du "boot", il suffit de le stacker sur 
la disquette APPLET et de l'appeler 
SYSTEM.STARTUP. 

Pour finir, voici un complement de 
bibliographie sur PASCAL UCSD 
pour Apple //: 

— Gestion de fichiers et de peripheri- 
ques pour Apple // en Pascal, de 
Herve Haut (Editions de PSI). 

- Le systeme Pascal UCSD (tomes 
1 et 2), de Thierry Chamoret (Edi- 
TEST). 

Ces deux ouvrages sont particuliere- 
ment interessants et fort bien faits. 
On y apprend enormement de 
choses. Merci a leurs auteurs. 



of DESCRFIC 



auec 



ENTETE = record 



unusedl 


: i nteger ; 


<* 


i nu t i 1 i s# 


*) 




PREBLOC 


: i n teger ; 


<* 


num ler bl oc ut i 1 i sabl e 


*) 




unused2 


: i nteger ; 


(* 


i nut i 1 i 


») 




NOM 


:str i ng! 7! ; 


(* 


nom du disque 


*) 




NBBLOCS 


: i n teger ; 


<* 


nombre de blocs du disq 


.*) 




NBFICHIERS 


: i n teger ; 


<* 


nombre de -fichiers 


*) 




unused3 


: i n teger ; 


<* 


i nut i 1 i se 


*) 




DATE SYS 


: date ; 


<* 


date systeme 


*) 




unused4 


: i n teger ; 


<* 


i nu t i 1 i se 


») 




unused5 


: i nteger ; 


<* 


i nu t i 1 i s£ 


*) 





end ; 

DATE = packed record 

MOIS : 1 . .12; 
JOUR : 1 . . 31 ; 
ANN EE -A.. 9? 
end ; 
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Programme STARTUP 
Assure 



Version du 5/09/84 



1 es -fonctions suivantes: 

- lecture dans le repertoire de la deniere 

- a-f-fichage du message de bienvenue. 

- saisie date du jour et enreg i stremen t sur 
en memo i re 



date de boot 



le disque et 



program startup; 
const 



vol ume =4 ; 
adrdate =-21992; 



< Numero du boot disk 

{ Adresse date systeme version 

< (-22254 pour version 1.0) 



1 . 1 



type 



date =packed record 

mo i s : 1 . . 1 2 ; 

jour : 1 . . 31 ; 

annee : . . 99 
end ; 

memdate =record case boolean of 

true :(datesys :"date) ; 

■false :<adresse : integer) 
end ; 

entete =record 



ex t-f u 1 1 


: i nteger ; 


C 


i nu t i 1 i se 


prebl oc 


: i n teger ; 


c 


numero du ler bloc 1 i bre 


catd i s 


: i n teger ; 


{ 


i nu t i 1 i se 


nom 


: str i ng[ 71 ; 


( 


nom du d i sque 


bl ocs 


: i n teger ; 


<: 


nbre de blocs sur le disque 


nbf i ch i er s 


: i n teger ; 


c 


nbre de fichiers sur disque 


extf ut2 


: i n teger ; 




i nu t i 1 i se 


datesys 


: date ; 


<: 


date systeme enregistree 


exttut3 


: i n teger ; 


c 


i nu t i 1 i se 


ext-fut4 


: i n teger 


c 


i nu t i 1 i se 



end; 



repert =record 
header 
•filler 



i n teger 



: e n t e t e ; 

:array[ 1 . .243] o-f 
C pour completer le record a 512 octets <tail 
end ; 



e d'un bl oc ) 



v ar 



mmj j aa 
wda t e 
rep 

change 



: memdate ; 
: date ; 
• neper t ; 
: bool ean ; 



Ecr i ture de 
e n memo ire. 



la nouvelle date systeme 



procedure wr i tedate<vardate :date) ; 



beg i n 

mmj j aa . adresse 
mmj j aa . datesys* 
mmj j aa . datesys" 
mmj j aa . datesys* 

end ; 



:=adrdate ; 
jour :=vardate . j our ; 
,mois :=vardate .mo i s ; 
annee :=vardate . annee 



C pour pouvoir acceder a la date } 

C en memoire (voir article > 

C "PEEKs et POKEs en PASCAL" J 

{ POMS numero 12 page 5 



Saisie nouvelle date systeme 



54 



Pom's n° 16 



procedure saisdate; 



cons t 



xO 
yO 



= 62; 
= 13; 



pos i t i on 

<x0 = 



du debut 
col onne 



de 1 a z on e de 

yO = 1 i gne ) 



saisie 



war strdate istrinq; 

j j : i n teger ; 

mm : i n teger ; 

aa : i n teger ; 

ok iboolean; 



procedure saisjjmmaa; 
war 



Saisie des elements de la date 



J 1 , J 2 
ml ,m2 
al , a2 
c 

ok 



begin 
change :=true ; 



: i n teger ; 
: i n teger ; 
: i n teger ; 
: char ; 
: bool ean ; 



Lecture ler chi-f-fre du jour 



repeat 

go toxy < xO , yO ) ; 
read(c) ; 

i-f ord<c)=32 then begin 

change :=-f al se ; 

ex i t < sa i sjjmmaa) 
end ; 

j 1 :=ord(c)-ord( '0' > ; 
ok:=<jl in CO.. 3]); 
i-f not ok then writeln<chr<7>> 
until ok ; 



< si RETURN, arret saisie 



< test de val i di te 



C == 



===== Lecture 2eme chi-f-fre du jour- 



repeat 

gotoxy< x0+ 1 , yO) ; 
read(c) ; 

j2:=ord<c)-ord< '0' ) ; 

ok:= < <<jl=0 ) and < j 2 in CI. .9])) 

or ( < j 1 in [1,23) and < j 2 in CO..?])) 
or < < j 1 = 3 ) and (j2 in [0,1] )) 

it' not ok then wr i te 1 n ( chr < 7) ) 
until ok ; 



< test de val i di te 



j j : = 10*j 1 



J2j 



Lecture ler chif-fre du mois 



repeat 

go t ox y < x + 3 , y ) ; 
read< c ) ; 

i-f ord<c)=32 then ex i t < sa i sj jmmaa) ; 

ml :=ord<c)-ord< ' ' ) ; 
ok :=<ml in [0,1]); 
i-f not ok then wr i t e 1 n ( chr ( 7 ) ) 
until ok ; 



C si RETURN, arret saisie > 
C test de walidite } 



Lecture 2eme chi-f-fre du mois 



repeat 

gotoxy < x0 + 4 , yO ) ; 
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read( c > ; 

m2 :=ord(c ) -ord( ' ' ) ; 

ok: = < <<ml=0) and <m2 in [1..9])) 

or (<ml=l) and <m2 in CO. .23)) 
if not ok then wr i te 1 n < chr < F> ) 
until ok ; 

mm:=10*ml + m2; 

{ ============================= Lecture ler chiffre de l'annee 

repeat 

gotoxy ( xO + 6 , yO ) ; 

read(c) ; 

if ord<c>=32 then ex i t ( sa i sj jmmaa) ; { si RETURN arret saisie > 

al:=ord(c)-ord('0')j C test de yalidite } 

ok:= <al in 10 . .91) ; 
i f not ok then wr i t e 1 n < c hr < 7 ) ) 
until ok ; 

( ============================ Lecture 2eme chi-f-fre de l'annee } 

repeat 

gotoxy< xO + 7 , yO ) ; 

read( c > ; 

a2: = ord(c)-ord< '0' > ; < test de walidite } 

ok : = <a2 in [0 . .?] > ; 
if not ok then wri teln(chr(7)) 
until ok ; 

aa:=10*al + a2; 

end ; 

<■ ::::::::::::::::::::::::::::::::: Verification coherence date saisie 

function verifdate : boolean; 

begin 
if mm in [4,6,9,11] 
then verifdate:=(jj<31) 
e 1 se if mm< >2 

then verifdate:=true 
e 1 se if a a mod 4 <> 

then ver i f date :=< j j <29) 
else ver i f date :=( j j <30 ) 

end; 



( test de galidite } 



Debut £ A I S DAT E 



beg i n 

j j :=rep . header . datesys . j our ; 
mm :=rep .header . datesys. moi s; 
aa :=rep . header . datesys . annee ; 



gotoxy< , 1 7) ; 

wri teCCurrent date 

i f mm in [ 1 . . 1 2 ] 

then case mm of 

1 : wri teC Jan' ) 
2: wri te('Feb') 
3: wr i te< 'Mar' ) 
4 : wr i te ( ' Apr ' ) 
5: write( 'May' ) 
6: wr i te< ' Jun' ) 
7: wr i te< ' Jul ' > 



Affichage date actuelle 



is ',JJ, '-'); 
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3 : wr i te< 'Aug' ) ; 

?: wri te( 'Sep' ) ; 
10: wri te('Oct') ; 
11: wri te( 'Nov' ) ; 
12: wri te('Dec') 

end 

e 1 se wri teC ???' ) ; 
wr i tel n< '-' ,aa> ; 



baisie nouvelle date si besoin 
wr i tel n\ Enter new date if needed (form <0 1 . . 31 >-<0 1 . . 1 2>-<00 ?<?>•> ■ ' > • 
gotoxyCxO , yO) ; 
wri teln( '..-..-..•) ; 



repeat 
ss i sj jmmaa ; 
gotoxy( xO , yO ) ; 



if jj<-9 then wr i te < ' ' ) ;wr i te < j j , ' - ' ) ; 
if mm<=? then wri te('O') ;wri te(mm,'-'); 
if aa<=9 then wr i te < ' ' ) ;wr i te < aa) ; 



(. Lecture reponse 
{ Reecriture date complete 



if not change 

then ok:=true 

else ok :=v»r i f date ; 
gotoxy<25,20) ; 
if not ok 

then wr i te< ' >>>> 

e 1 se wr i te ( ' 
until ok : 



Date i nval i de 



C Si saise par RETURN => rien a faire 
< Sinon on gerifie la nouvelle date 



<<<<' ,chr(7) ) 
' ) 



{ 

{ 

if ch ange 
then beg i n 
with wdate 
beg i n 
j our 
mo i s 
a n n e e 
end ; 

rep. header. datesys :=wdate 
end 



do 

:=J j ; 

: =mm ; 

: =aa 



Si modification alors on memorise la 
nouvelle date pour les mises a jour. 



end; 



procedure readrep<var varrep : r eper t ) ; 



< de 1 a procedure SAISDATE 
■ Lecture de ler bloc du repertoire 



beg i n 

u n i t r e ad ( v o 1 ume , v ar r e p , s i z e of (. v ar r e p ) , 2 ) 
end ; 



procedure writerep(var varr ep : re per t > ; 



Mise a jour du ler bloc du repertoire 



be g i n 

un i twr i te<vol ume .varrep ,si zeo-f < varrep ) ,2) 
end ; 



~ ~ Affichaqe du messaqe de bienvenue 

procedure welcome; 

beg i n 
page (output) ; 
gotoxy<0 , 10) ; 
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wri teln< 'Wei come ', rep . header . nom ,' , to Apple II Pascal 1.1'); 
wr i te 1 n ; 

wr i tel n< 'Based on UCSD Pascal System Version II. 1'); 
end ; 



C 

< 

< 



PROGRAMME PRINCIPAL 



beg i n 

readrep ( rep > ; 
we 1 come ; 
sa i sdate ; 
i t change 
then beg i n 

wr i tedate(wdate) ; 
wri terep(rep) 
end 

end. 



C Lecture du ler bloc de la directory > 

{ A-f-fichage du message de bienwenue > 

{ Sa i s i e de 1 a date > 

{ Si di-F-ferente de l'ancienne, > 

{ 1 - enreg i stremen t en memo ire > 

{ 2 - mise 3 jour de Is directory J 



LA PHOTOCOMPOSITION EN PROLONGEMENT bE LA MICRO-INFORMATWUE 





TRANSMETTEZ-NOUS VOS TEXTES 
PAR TELEPHONE 
ou 

DONNEZ-NOUS VOTRE DISQUETTE 



O 




Les textes de ilos articles, catalogues, annuaires ou brochures 
saisis sur Votre APPLE sont eniloues directement sur notre photocom- 
poseuse. 

Nous fous ei/itons ainsi, le cout et te temps de (a saisie supple- 
mentaire Hue necessite le traitement traditionnel de la photocompo- 
sition ailant {'impression des documents, si Vous le desirez nous pou- 
i/ons egalement nous charger de /'impression et du brochage. 




NOTRE REFERENCE... LA REVUE POM'S 



TtUCOMPO 32818 63 



nOTxarosmm asm* « ncmn 
aucwnoK Ninon or 
twismsjo* of oomtis THAinMtm of rwis 



13 et :5 do Pefii Pm 
94300 mCEffKS 
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Tout ce que 
vous avez 

toujours 
voulu savoir... 



Apple He I 




Macintosh,. 



Apple et GMS e'est une rencontre. 
Apple e'est toute une gamme d'ordi- 
natenrs personnels pour profession- 
nek 

L'Apple Ik et son jeune frere compact 
1' Apple lie. lis sont tres serieux pour la 



gestion, la tenue des stocks ou le trai- 
tement de texte... 

Et puis il y a Macintosh et sa souris. 
On clique sur la souris, on appelle le 
programme. Tout un menu est affi- 
che par symboles, les elements sont 



simples et les combinaisons infinies. 
Enfin il y a GMS, une equipe de pro- 
fessionals qui vous accueilleront et 
vous conseilleront personnellement. 
Alors tout ce que vous avez toujours 
voulu savoir... 345.28.52. 







NFORMATIQUE 

Informatique GMS 212-214 avenue Daumesnil 75012 Paris. Apple 

"Le nom Apple et le logo Apple sont des marques deposees d' Apple Computer. Inc." ™ Apple Computer, Inc est le licencie de la marque Macintosh. 
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PLE+CRAE+APA 



Yvan Koenig 



Si vous avez PLE. CRAE, TOOLKIT 
et une extension 16K. je vous offre 
la possibility d'avoir ces trois utilitai- 
res simultanement en memoire 
(MEM) avec, en plus, un tableau des 
lignes referencees et une routine re- 
groupant des lignes consecutives. 

CRAE se place sous les buffers du 
DOS de $7400 a $8FFF. LOADAPA, 
utilise lorsque PLE est en place 
charge APA de $81E1 a $8FFF. 
GR+LINREF utilise $7FD0 a $81D9. 
II est possible grace a CRAPA.OBJ 
de reporter CRAE dans 1'extension 
Bankl de $D000 a $EC00. De son 
cote, APA+DIVERS peut se loger en 
Bank2 de $D0O0 a $DFFF et de 
$F000 a $FC00. 

La commande &' permet d'appeler 
en MEM l'utilitaire qui n'y est pas. 
Lorsque APA + DIVERS est actif. on 
accede a LINREF par &&, a 
GROUPE par &GR L1.L2. 



Pour avoir ces possibilites. entrez les 
programmes CRAPA et GR+LINREF 
soit en assembleur. soit directement 
en hexadecimal. Chargez PLE. puis 
faites RUN LOADAPA afin de placer 
APA sous les buffers du DOS. Placez 
alors GR+LINREF en $7FD0 et sau- 
vez le tout par BSAVE 
APA+DIVERS, A$7FD0.L$1030. 
Chargez a nouveau PLE. effacez 
63999. tapez le listing PLECRAPA et 
sauvez sous ce nom. 

Vous pouvez alors initialiser une dis- 
quette avec PLECRAPA puis la 
completer avec PLE. EDIT. PROD , 
APA + DIVERS et enfin CRAPA.OBJ. 

Vous avez alors un outil tres complet 
pour l'edition de vos programmes 
Basic. Je cite pour memoire : avec 
CRAE (voir Pom's 1). vous avez la 
recherche et la modification de chai- 
nes. un dump memoire. une nume- 
rotation automatique. et la conver- 
sion HEX - DEC. 



Avec APA+DIVERS. vous avez les 
variables referencees. la renumerota- 
tion, la reunion de programmes, la 
suppression de REM. les lignes refe- 
rencees, etc... 

Je precise que &GR L1.L2 se borne 
a afficher les lignes LI a L2 comme 
si elles etaient regroupees. a vous de 
valider si vous le souhaitez en relisant 
avec le curseur. 

&GR LI affiche la ligne LI compac- 
tee au maximum, les espaces parasi- 
tes etant omis et les instructions 
PRINT remplacees par ?. 

Je n'ai pas cree de pense-bete pour 
indiquer quel utilitaire est actif a un 
moment donne: taper & envoie le 
message READY si CRAE est actif. et 
envoie le prompt Applesoft dans le 
cas contraire. 

La memoire disponible pour les pro- 
grammes Basic est exactement celle 
que Ton a avec le couple PLE + 
CRAE. ■ 



] LIST ] PLECRAPA 

10 TEXT i HOME : CALL PEEK <175> ♦ PEE 

K (176) * 256 - 1822: CALL - 2257 

2: PRINT "VOUS AVEZ PLE" 
30 PRINT CHR* < 4) " BLOADCRAPA . OBJ ,A*300 " 

: POKE 827,8: POKE 829,6 
50 GOSUB 620: PRINT CHR* (4VBL0AD APA + 

DIVERS" : CALL 786 
60 GOSUB 600: PRINT CHR* < 4) " BLOADPLE . E 

DIT.PROD" : CALL 768 
70 POKE 111,240: POKE 112,115: POKE 115, 

240: POKE 116,115: POKE 827,6: POK 

E 829,8 

80 PRINT : INVERSE : PRINT " CRAE ACTIF 
";: HTAB 21: PRINT "&'";: NORMAL : 

PRINT " POUR BASCULER" : VTAB 22: 
NEW 

600 PRINT : PRINT "1. APPEND" ; : HTAB 26: 
PRINT "6. QUOTE" : PRINT "2. CHANG 
E";: HTAB 26: PRINT "7. VERIFY OFF 



PRINT "3. DUMP";: HTAB 26: PRIN 
T "8. AUTOLINE" : PRINT "4. FIND";: 
HTAB 26: PRINT "9. RENUMBER" : PRI 
NT "5. LIST";: HTAB 26: PRINT "10. 
MODIFY" 

610 PRINT "11. QUICK & DIRTY": HTAB 26: P 
RINT "* = MONITOR": PRINT *! = FRE 
E BYTES" SPC< 11)"!F= HEX > DEC": 
PRINT "/, = BIN. LOAD ADR" SPC< 8)" 
V.\ = DEC > HEX" : RETURN 

620 HOME : PRINT "&RENUMBER <START>,<INC 
>,<FIRST>,<LAST>" : PRINT "&HOLD" : 
PRINT "&MERGE" : PRINT "&LENGTH" : P 
RINT "&C0MPRESS" : PRINT "&SHOW" : P 
RINT "&NOSHOW" : PRINT "&AUT0 <STAR 
T>,<INC>": PRINT "&MANUAL" : PRINT 
"&XREF": PRINT "&KEYS" 

630 INVERSE : VTAB 10: HTAB 30: PRINT "Se 
GR L1,L2": HTAB 30: PRINT "&&=LINR 
EF" : NORMAL : RETURN 



1 
2 
3 
4 
5 
6 
7 
8 
? 



;*** GROUPE DES LIGNES *»« 
;**# SUR L'ECRAN POUR *** 
EDITION EVENTUELLE ** 



ORG *7FD0 
OBJ *300 



CH 



EP2 *24 

10 LINNUM EPZ S50 

1 1 FORPNT EPZ *85 

12 LOUITR EPZ *?B 

13 DSCTMP EPZ *9D 

14 CHRGET EPZ *B1 

15 CHRGOT EPZ *B7 



GR + LINREF.SCE 



16 


TMINUS 


EPZ 


*C9 


17 


! 






18 


AMPERV 


EQU 


*3F5 


19 


TKNTBL 


EQU 


SO0D0 


20 


FNDLIN 


EQU 


*D61A 


21 


NEWSTT 


EQU 


SD7D2 


22 


I SCNTC 


EQU 


♦D858 


23 


LINGET 


EQU 


*DA0C 


24 


CRDO 


EQU 


SDAFB 


25 


OUTQST 


EQU 


SDB5A 


26 


OUTDO 


EQU 


*DB5C 


27 


SYNTAX 


EQU 


*DEC9 


28 


LINPRT 


EQU 


*ED24 


29 
30 









60 



Pom's n" 16 



E.APA EQU $3310 



31 

32 ; 

33 DIVERS 
34 

35 

36 AUTRE 

37 

33 

3? COMPAC 

40 STRTLN 

41 

42 

43 

44 

45 

46 

47 

48 ENDLN 

49 

50 

51 ENDMAX 

52 

53 

54 

55 

56 ERRP 

57 FIRSTL 
53 

59 
60 
61 
62 

63 

64 

65 

66 

67 

68 ; 

69 

70 

71 

72 

73 

74 

75 

76 

77 

73 

79 

80 

31 

32 

33 

84 

85 

86 

87 

38 

39 

90 

91 

92 

93 
94 

95 
96 
97 
98 
99 
100 
101 
102 
103 



CMP 
BNE 
JMP 
CMP 
BEQ 
JMP 
JSR 
JSR 
JSR 
JSR 
BEQ 
CMP 
BEQ 
CMP 
BNE 
JSR 
JSR 
BNE 
PLA 
PLA 
LDA 
ORA 
BNE 
JMP 
LDY 
JSR 
I NY 
LDA 
TAX 
I NY 

LDA (LOUITR) ,Y 
STY FORPNT 
JSR LINPRT 
LDY FORPNT 
JMP NOCR 



*»*AF 

AUTRE 

LINREF 

1**33 

COMPAC 

E.APA 

CHRGET 

LINGET 

FNDLIN 

CHRGOT 

ENDMAX 

ttTMINUS 

ENDLN 

a ' 

ERRP 
CHRGET 
LINGET 
ERRP 



LINNUM 

LINNUM+1 

FIRSTL 

SYNTAX 

HI 

CRDO 

(LOWTR) ,Y 



NXLN 



ENDRNG 
PRNMB 



LSTLN 

PPCHR 
NOCR 



FIN 

KEYCHR 



LDY 

LDrt 

BEQ 

JSR 

I NY 

LDA 

TAX 

I NY 

LDA 

CMP 

BNE 

CPX 

BEQ 

BCS 

STY 

LDA 

BNE 

LDY 

JMP 

JSR 

I NY 

LDA 

BNE 

TAY 

LDA 

TAX 

I NY 

LDA 

STX 

STA 

BNE 

JSR 

JMP 

I NY 

BNE 



HI 

(LOWTR) ,Y 

FIN 

I SCNTC 

(LOUITR) ,Y 



(LOUITR) ,Y 

LINNUM+ 1 

ENDRNG 

LINNUM 

PPNMB 

FIN 

FORPNT 

H' : ' 

PRCHR 

FORPNT 

NOCR 

OUTDO 

(LOUITR) ,Y 
PROCHR 

(LOUITR) ,Y 



< LOUITR) ,Y 

LOUITR 

LOWTR+1 

NXLN 

CRDO 

NEUISTT 

Kl 



; & 

; GR.OUPE 



104 

105 

106 

107 

108 

109 

110 

1 1 1 

112 

1 13 

114 

115 

1 1 6 

1 1 7 

1 1 8 

1 1? 

120 

1 21 

1 22 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

1 36 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

1 48 

149 

150 

151 

152 

153 

154 

1 55 

1 56 

157 

158 

159 

160 

161 

162 

163 

164 

165 

1 66 

167 

168 

169 

170 

171 

172 

173 

174 

1 75 

176 



PROl 



INC 

Kl LDA 
RTNO RTS 
PROCHR BPL 
STY 
CMP 
BNE 
JSR 
JMP 
SEC 
SBC 
TAX 
LDY 
STY 
LDY 
STY 
LDY 
DEX 
BEQ 
JSR 
BPL 
BMI 
JSR 
BMI 
JSR 
BNE 
JSR 
JMP 



NX KEY 



Ml 



PRKEY 



P2 



DSCTMP+1 
(DSCTMP) ,Y 

PRCHR 

FORPNT 

H*BA 

PROl 

OUTQST 

LSTLN 

Ht7F 

HTKNTBL 
DSCTMP 

/TKNTBL-*1 00 

DSCTMP+1 

H*FF 

PRKEY 

KEYCHR 

Nl 

NXKEY 

KEYCHR 

P2 

OUTDO 
PRKEY 
OUTDO 
LSTLN 



PRINT' 



* TABLEAU DES LIGNES APPELEES » 



TXTTAB EPZ 
CURLIN EPZ 
FL1 EPZ 
FL2 EPZ 
OLDTXP EPZ 
DATPTR EPZ 



KBD 

KBDSTB 
COUT 



LINREF 



EQU 
EQU 



*67 

♦ 75 
*77 
*78 

♦ 79 

♦ 7D 

*C000 
*C0 10 



EQU *FDED 



Dl 



D2 



JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
PHA 
I NY 
LDA 
SEQ 
PHA 
PLA 
STA 
PLA 
STA 
JMP 
PLA 



JSR 
LDA 
STA 
LDA 
STA 

ENCORE LDA 



CHRGET 

TXTTAB 

OLDTXP 

TXTTAB* 1 

OLDTXP+1 

HO 

FL2 

HO 

(OLDTXP) ,Y 



(OLDTXP) ,Y 
D2 



OLDTXP+1 

OLDTXP 
Dl 



CRDO 

TXTTAB 

OLDTXP 

TXTTAB +1 

OLDTXP+1 

HO 



Pom's n° 16 



1 77 




STA 


FL1 






252 




JSR 


COUT 


178 




LDY 


#2 






253 




LDY 


#2 


179 




LDA 


<OLDTXP) 






254 




LDA 


(OLDTXP) ,Y 


180 




STA 


CURLIN 






255 




TAX 




181 




I NY 








256 




INY 




182 




LDA 


(DLDTXP) 


,y 




257 




LDA 


( OLDTXP) , Y 


183 




STA 


CURLIN+1 






258 




JSR 


LINPRT 


184 




JSR 


UNELIG 






259 




LDA 


*»7 


185 




LDY 


*0 






260 




STA 


CH 


186 




LDA 


(OLDTXP) 






261 




BNE 


Y3 


187 




PHA 








262 


Yl 


LDA 


*»*AC 


188 




INY 








263 


Y2 


JSR 


COUT 


18? 




LDA 


(OLDTXP) 


>Y 




264 


Y3 


LDY 


#2 


190 




BEG! 


TERMIN 






265 




LDA 


( DATPTR) ,Y 


191 




STA 


OLDTXP+1 






266 




TAX 




192 




PLA 








267 




INY 




193 




STA 


OLDTXP 






268 




LDA 


< DATPTR) , Y 


194 




JMP 


ENCORE 






269 




JSR 


LINPRT 


195 


TERM IN 


PLA 








270 




PLA 




196 




RTS 








271 




TAY 




197 


i 










272 


Y4 


LDA 


( DATPTR) ,Y 


198 


UNELIG 


LDA 


TXTTAB 






273 




CMP 


#«2C 


199 




STA 


DATPTR 






274 




BEQ 


YA1NUM 


200 




LDA 


TXTTAB + 1 






275 




JMP 


U2 


201 




STA 


DATPTR+ 1 






276 


5 






202 


Ul 


LDY 


#4 






277 


NUMGET 


LDA 


#0 


203 


U2 


LDA 


< DATPTR) 


.Y 






LE LINGET APPLESOFT 


204 




BEQ 


U4 






278 




STA 


LINNUM 


205 




CMP 


«*C5 




;AT 


279 




STA 


LINNUM+1 


206 




BCS 


U3 






280 




STA 


FL2 


207 




CMP 


tt*35 




;DEL 


281 


CI 


INY 




208 




BCC 


U3 






282 




LDA 


< DATPTR) ,Y 


209 




BEQ 


YA1NUM 






283 




CMP 


tt*20 


210 




CMP 


tt*AB 




; GOTO 


284 




BEQ 


CI 


21 1 




BEQ 


YA1NUM 






285 


C10 


LDA 


(DATPTR) ,Y 


212 




CMP 


t**AC 




; RUN 


286 




SEC 




213 




BEQ 


YA1NUM 






287 




SBC 


***30 


214 




CMP 


»*C4 




;THEN 


288 




BCC 


C3 


215 




BEQ 


YA1NUM 






289 




CMP 


***A 


216 




CMP 


ttSBO 




jGOSUB 


290 




BCS 


C3 


217 




BEQ 


YA1NUM 






291 




INC 


FL2 


218 




CMP 


«*BC 




■ 1 T C~T 

; LI ST 


292 




PHA 




219 




BEQ 


YA1NUM 






293 




ASL 


LINNUM 


220 


U3 


INY 








294 




ROL 


LINNUM+1 


221 




BNE 


U2 






295 




LDX 


LINNUM+1 


222 


114 


LDY 


no 






296 




LDA 


LINNUM 


223 




LDA 


< DATPTR) 


>Y 




297 




ASL 


LINNUM 


224 




PHA 








293 




ROL 


LINNUM+1 


225 




I NY 








299 




ASL 


LINNUM 


226 




LDA 


( DATPTR) 


> Y 




300 




ROL 


LINNUM+1 


227 




STA 


OR IPIK+I 






301 




ADC 


LINNUM 


228 




PLA 








302 




STA 


LINNUM 


229 




STA 


DATPTR 






303 




TXA 




230 




LDA 


( l)H 1 r 1 K) 


v 




304 




ADC 


LINNUM+1 


231 




BNE 


Ul 






305 




STA 


LINNUM+1 


232 




RTS 








306 




PLA 




233 


; 










307 




ADC 


LINNUM 


234 


YA1NUM 


JSR 


NUMGET 






308 




STA 


LINNUM 


235 




LDA 


FL2 






309 




BCC 


C2 


236 




BEQ 


Y4 






310 




INC 


LINNUM+1 


237 




LDA 


LINNUM 






31 I 


C2 


INY 




238 




CMP 


CURLIN 






312 




BNE 


C10 


239 




BNE 


Y4 






313 


C3 


RTS 




240 




LDA 


LINNUM+ 1 






314 








241 




CMP 


CURLIN+ 1 






315 


TOUCHE 


LDA 


KBD 


242 




BNE 


Y4 






316 




BPL 


T2 


243 




TYA 








317 




STA 


KBDSTB 


244 




PHA 








318 


Tl 


LDA 


KBD 


245 




LDA 


FL1 






31? 




BPL 


Tl 


246 




BNE 


Yl 






320 




STA 


KBDSTB 


247 




LDA 


ttl 






321 


T2 


RTS 




248 




STA 


FL1 






322 


• 






249 




JSR 


TOUCHE 






323 


LONG 


EQU 


•-DIVERS 


250 




JSR 


CRDO 






324 


FINI 


END 




251 




LDA 


K*AD 




;TI RET 











jUIRGULE 



;W1 RGULE 



;PRESQUE 



;ESPACE 



62 



Pom's n" 16 



GR + LINREF 



*7FD0.81D8 



7FD0- 


C9 


AF 


DO 


03 


4C 


9B 


80 


C9 


7FD8- 


88 


FO 


03 


4C 


10 


83 


20 


Bl 


7FE0- 


00 


20 


OC 


DA 


20 


1A 


D6 


20 


7FE8- 


B7 


00 


FO 


10 


C9 


C9 


FO 


04 


7FF0- 


C9 


2C 


DO 


10 


20 


Bl 


00 


20 


7FF3- 


OC 


DA 


DO 


08 


63 


68 


A5 


50 


8000- 


05 


51 


DO 


03 


4C 


C9 


DE 


AO 


8008- 


01 


20 


FB 


DA 


C3 


Bl 


9B 


AA 


8010- 


C8 


Bl 


9B 


84 


85 


20 


24 


ED 


8018- 


A4 


85 


4C 


45 


30 


AO 


01 


81 


8020- 


98 


FO 


34 


20 


58 


D8 


C3 


Bl 


8023- 


9B 


AA 


C3 


Bl 


9B 


C5 


51 


DO 


8030- 


04 


E4 


50 


FO 


02 


BO 


20 


84 


8038- 


85 


A9 


3A 


DO 


05 


A4 


85 


4C 


80 40- 


45 


80 


20 


5C 


DB 


C8 


Bl 


9B 


8048- 


DO 


IB 


AS 


Bl 


9B 


AA 


C8 


Bl 


80 50- 


9B 


86 


9B 


85 


9C 


DO 


C6 


20 


8053- 


FB 


DA 


4C 


D2 


D7 


C3 


DO 


02 


8060- 


E6 


9E 


Bl 


9D 


60 


10 


D8 


34 


8068- 


85 


C9 


BA 


DO 


06 


20 


5A 


DB 


80 70- 


4C 


3D 


80 


38 


E9 


7F 


AA 


AO 


8073- 


DO 


84 


9D 


AO 


CF 


84 


9E AO 


8080- 


FF 


CA 


FO 


07 


20 


5D 


80 


10 


8083- 


FB 


30 


F6 


20 


5D 


80 


30 


05 


8090- 


20 


5C 


DB 


DO 


F6 


20 


5C 


DB 


8098- 


4C 


3D 


30 


20 


Bl 


00 


A5 


67 



80A0- 85 79 A5 68 85 7A A9 00 

80A8- 85 78 AO 00 Bl 79 48 C3 

80B0- Bl 79 FO OA 48 68 85 7A 

80B8- 68 85 79 4C AA 80 68 20 

80C0- FB DA A5 67 85 79 A5 63 
80C8- 85 7A A9 00 85 77 AO 02 

80D0- Bl 79 85 75 C8 Bl 79 85 

80D8- 76 20 FO 80 AO 00 Bl 79 

80E0- 48 C8 81 79 FO 08 85 7A 

80E3- 68 35 79 4C CA 80 68 60 

80F0- A5 67 85 7D A5 68 85 7E 

80F3- AO 04 Bl 7D FO 21 C9 C5 

8100- BO 1A C9 85 90 16 FO 29 

8108- C9 AB FO 25 C9 AC FO 21 

8110- C9 C4 FO 10 C9 BO FO 19 

8118- C9 BC FO 15 C8 DO DB AO 

8120- 00 Bl 7D 48 C8 81 70 85 
8128- 7E 68 85 7D Bl 7D DO C8 
8130- 60 20 85 81 A5 78 FO 44 
8138- A5 50 C5 75 DO 3E A5 51 
8140- C5 76 00 38 98 48 A5 77 
8148- DO 20 A9 01 85 77 20 C8 
8150- 81 20 FB DA A9 AD 20 ED 
8158- FD AO 02 Bl 79 AA C8 81 
8160- 79 20 24 ED A9 07 85 24 
8168- DO 05 A9 AC 20 ED FD AO 
8170- 02 Bl 7D AA C8 81 70 20 
8178- 24 ED 68 A8 Bl 7D C9 2C 
8180- FO AF 4C FA 80 A9 00 85 
8188- 50 85 51 85 78 C8 Bl 7D 
8190- C? 20 FO F9 Bl 7D 38 E9 
8198- 30 90 2C C9 OA 80 28' E6 
81A0- 78 48 06 50 26 51 A6 51 



81A8- A5 50 06 50 26 51 06 50 

81 BO- 26 51 65 50 85 50 8A 65 

81B8- 51 85 51 68 65 50 85 50 

81 CO- 90 02 E6 51 C8 DO CD 60 

81C3- AD 00 CO 10 08 8D 10 CO 

81 DO- AD 00 CO 10 FB 8D 10 CO 
81D8- 60 



CRAPA.OBJ 



•300.37A 
















0300- 


AO 


6E 


8C 


F6 


03 


AO 


03 


8C 


0308- 


F7 


03 


AO 


01 


84 


2C 


AO 


08 


0310- 


DO 


10 


AO 


61 


SC 


F6 


03 


AO 


0318- 


03 


8C 


F7 


03 


AO 


02 


84 


2C 


0320- 


AO 


00 


A9 


00 


85 


08 


85 


06 


0328- 


A9 


DO 


85 


07 


A9 


74 


85 


09 


0330- 


B9 


83 


CO 


B9 


83 


CO 


A2 


10 


0338- 


AO 


00 


Bl 


06 


91 


08 


C8 


DO 


0340- 


F9 


E6 


07 


E6 


09 


CA 


DO 


F2 


0343- 


A5 


2C 


C? 


02 


DO 


06 


C6 


2C 


0350- 


A9 


FO 


85 


07 


A2 


OC 


C6 


2C 


0358- 


FO 


DE AD 


8A 


CO 


AD 


82 


CO 


0360- 


60 


C? 


27 


FO 


03 


4C 


DO 


7F 


0368- 


20 


Bl 


00 


4C 


00 


03 


C9 


27 


0370- 


FO 


03 


4C 


00 


87 


20 


Bl 


00 


0378- 


4C 


12 


03 













Conversion minuscules/Majuscules 

Alexandre Avrane 



Ce programme de conversion est 
destine aux possesseurs d'Apple II ou 
d'Apple 11+ sans ROM d'affichage 
des minuscules. II convertit tous les 
caracteres minuscules situes dans un 
programme Applesoft en caracteres 
majuscules correspondents. 
II vient en complement du module 
SHIFT paru dans Pom's 14 et per- 
met de modifier definitivement un 
programme sans devoir lancer SHIFT 
a chaque execution. 
De plus, il est destine plus particulie- 
rement aux programmes Applesoft 



qui tournent sous ProDOS (tel que 
C.Q.F.D.) car SHIFT ne fonctionne 
que sous Dos 3.3. Le programme 
une fois converti en majuscules sous 
DOS 3.3 peut effectivement l'etre 
ensuite en ProDOS, sans probleme. 

L' utilisation est tres simple et ne ne- 
cessite aucun commentaire particu- 
lier. En revanche, je vous laisse de- 
couvrir son principe de 
fonctionnement qui repose sur la ge- 
neration en cascade de plusieurs fi- 
chiers EXEC. 



SHIFT 



»300. 


34A 
















0300- 


A9 


OF 


85 


36 


A9 


03 


85 


37 


0308- 


A9 


00 


85 


48 


4C 


EA 


03 


80 


0310- 


4A 


03 


08 


8A 


48 


AO 


4A 


03 


0313- 


A2 


07 


DO 


3A 


03 


FO 


OC 


CA 


0320- 


10 


F8 


C9 


EO 


90 


08 


38 


E9 


0328- 


20 


DO 


03 


BD 


42 


03 


80 


4A 


0330- 


03 


68 


AA 


28 


AD 


4A 


03 


4C 


0333- 


FO 


FD 


CO 


DC 


EO 


FB 


FC 


FD 


0340- 


FE 


FF 


CI 


C3 


Al 


C5 


D5 


C5 


0348- 


AO 


Al 
















1 REM SHI FT. CONVERT 

2 REM <C> 1984 ALEXANDRE AVRANE 

3 REM 27/10/84 

55 IF PEEK (55) < > 1 58 THEN FLASH : 
PRINT "SHI FT. CONVERT DOIT S'EXECUT 
ER SOUS DOS!": NORMAL : END 

100 D* = CHR* (4) 

110 Q* = CHR* (34) 

120 TEXT : HOME 

130 PRINT "CONVERSION EN MAJUSCULES D'UN 
PROGRAMME APPLESOFT COMPORTANT 
DES MINUSCULES" 
140 PRINT : PRINT 

150 INPUT " PROGRAMME INITIAL: ";F1* 

160 INPUT "PROGRAMME CONVERTI :"; F2« 

170 PRINT D*"NOMONICO" 

180 PRINT D* " BRUN SHIFT" 

190 PRINT D*"OPEN 21 " 

200 PRINT D*" DELETE 2 1" 

210 PRINT D*"OPEN 21 " 



220 PRINT D*"UJRITE 21" 

230 PRINT "L0AD"F1* 

240 PRINT "63999"; 

250 PRINT " :?"Q*D*" CLOSE 2 1 " Q* ; 

260 PRINT " :?"QSD*"OPEN 22"Q*; 

270 PRINT " :?"Q*D* "WRITE 22"Q*: 

280 PRINT » :POKE33,20" ; 

290 PRINT " :LIST0-63998" ; 

300 PRINT " :POKE33,40» ; 

310 PRINT " : ? " Q* " 63999 " Q* ; 

320 PR I NT " : ? " Q* " SAVE " F2*Q* ; 

330 PRINT " : ?" Q* u DELETE 2 1 " Q* ; 

340 PRINT " : ?" Q*" DELETE 22"Q«; 

350 PRINT " :?"Q*D»" CLOSE 22"Q*; 

360 PRINT " :?"Q*D*»MONI"Q* 5 

370 PRINT " :?"Q*D*"EXEC 22"Q* 

380 PRINT "RUN 63999" 

390 PRINT D*"CLOSE 21" 

40 PRINT D*"EXEC 21" 
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CALLs a gogo 



Roland JOST 

Troisieme article destine a vous fami- 
liariser avec la manipulation en Ap- 
plesoft des ressources ultimes de 
votre Apple : apres "Pokes a Gogo" 
(Pom's 11) et "Peeks a Gogo" 
(Pom's 13), void les "Calls a Gogo". 
Peut-etre aurions-nous du appeler la 
serie "PEEKs et POKEs et CALLe- 
gram" ? 

Comparer deux zones memoire, en 
deplacer une, afficher un nombre en 
hexadecimal, lire ou ecrire un secteur 
sur la disquette. afficher de droite a 
gauche, et bien d'autres choses en- 
core, sont possibles en utilisant les 
programmes du Moniteur, de I' inter- 
preter Applesoft ou du DOS. En 
effet il suffit souvent de POKEr quel- 
ques adresses en page zero, de faire 
un CALL, et le probleme est resolu. 

Un certain nombre de sous-program- 
mes peuvent etre appeles directe- 
ment a partir du Basic. Pour d'au- 
tres, il est necessaire de charger 
l'accumulateur efou les registres 
d'index avant 1'appel du sous-pro- 
gramme. Le programme en assem- 
bleur AMPERCALL vous facilitera la 
tache. Dans la liste ci-dessous. ces 
CALLs sont precedes d'un amper- 
sand (&). 

Enfin. il est possible d' appeler des 
sous-programmes de l interpreteur. a 
condition de POKEr certains parame- 
tres en memoire. Ces CALLS seront 
signales par un #. 

• CALL -144 (65392) : lecture du 
tampon d' entree et execution des 
commandes : ce CALL est 1' element 
central de la celebre routine de 
S.H.LAM : 

C$=C$ + " N D9C6G":FOR Z=l 
TO LEN(C$): 
POKE511+Z. 
ASC(MID$(C$.Z.1)) + 128: 
NEXT: POKE 72.0:CALL -144 
permet l'execution de la chalne C'i 
representant une commande donnee 
sous Moniteur. Par exemple : 

• Disassembler 20 instructions : C$ 
= "300L" 

• Copier la page graphique 1 en 
page graphique 2 : C$ 
= "4000<2000.3FF8M" 

• Afficher une zone memoire en 
hexadecimal : C$ = "300.3FF" 

Passons aux CALLs proprement 
dits: 

CALL -151 (65385): passage au 
mode Moniteur a partir du Basic. 

CALL -155 (65381): comme pre- 
cedemment, avec emission d'un 
'bip'. 



CALL -167 (65369) : idem plus re- 
tour en mode TEXT. 
CALL -182 (65354): sauvegarde 
des registres A, X. Y. P et S respecti- 
vement en $45. $46. $47. $48 et 
$49 (69 a 73). 

CALL -193 (65343): restaure les 
registres a partir du contenu des 
adresses $45 a $49. 

CALL -198 (65338): emission 
d'un bip. 

CALL -211 (65325): affiche ERR 
et emet un 'bip' 

CALL -310 (65226) : lance l'exe- 
cution du programme machine 
pointe en $3F9 - $3FA (appele par 
Ctrl-Y en mode moniteur). 

CALL -321 (65215) : affiche les re- 
gistres A. X. Y. P. S. 

# CALL -327 (65209): restaure 
les registres et appelle le programme 
pointe par $3A - $3B (58 - 59). 
Exemple d' utilisation : appel de la 
sous-routine RWTS : 

IOB=256*(PEEK(PEEK(996) + 256* 
EEK(997)) 

+PEEK(PEEK(999) + 256* 
EEK(IOOO)): 

REM adresse de la table IOB 
CALL -182 : POKE 69. IOB 256 : 
POKE 71.10B-PEEK(69)*256: 
POKE 59.3: 

POKE 58.217: POKE 49.0: CALL 
-327 

Attention : les parametres necessaires 
doivent au prealable etre POKes dans 
la table IOB (voir programme AM- 
PERCALL). 

CALL -336 (65200) : branchement 
au Basic. Le programme est efface. 

CALL -380 (65156) : passage en 
mode NORMAL. 

CALL -384 (65152) : passage en 
mode INVERSE. 

# CALL -418 (65118) : passage en 
mode Moniteur et desassemblage de 
20 instructions. L'adresse de debut 
doit etre POKee en $3A et $3B. 
POKE 59.AD 256 : 

POKE 58,AD-256.PEEK(59) : 
CALL -418 

desassemblera 20 lignes a partir de 
l'adresse AD. Un autre CALL -418 
desassemblera les 20 lignes suivantes. 
etc... 

# CALL -458 (65078) : verification 
de zones memoire. Exemple : 

Dl = debut de la lere zone 

Fl = fin de la zone 1 

D2 = debut de la zone 2 

Dl. Fl et D2 sont POKes respective- 

ment en $3C - $3D. $3E - $3F et 

$42 - $43. 



CALL -610: POKE 61, Dl 256: 
POKE 60,D1-PEEK(61)*256: 
POKE 63.F1/256: 
POKE 62,F1-PEEK(63)*256: 
POKE 67.D2/256: 

POKE 66,D2-256*PEEK(67): CALL 
-458 

Les differences seront affichees (le 
CALL -610 remet le registre Y a 
zero, ce qui est absolument necessaire 
car il est utilise comme compteur par 
les routines VERIFY et MOVE). 

# CALL -468 (65068): sous-pro- 
gramme MOVE permettant le depla- 
cement de zones memoire. Utiliser 
1' instruction precedente en remplacant 
simplement CALL -458 par un 
CALL -468. 

Exemple : recopier la page graphique 
2 dans la page 1 : 

CALL -610: POKE 61.64: POKE 
60.0: 

POKE 63.95: POKE 62.255: POKE 
67.32: 

POKE 66.0 :CALL -468 
& CALL -550 (64986) : affiche le 
contenu de l'accumulateur (en hexa- 
decimal). 

& CALL -570 (64966) : addition ou 
soustraction de nombres hexadeci- 
maux (inferieurs a $FF). Les deux 
nombres sont POKes en 60 et 62 et 
A doit contenir le code ASCII de + 
ou -. 

Exemple : INPUT "A.B":A.B : POKE 
60.A: 

POKE 62.B: &CALL -570.43.0.0: 
REM addition. 

Pour la soustraction faire &CALL 
-570. 45. 0. 0. 

# CALL -589 (64947) : dump 
hexadecimal. L'adresse de debut doit 
etre POKee en 60 - 61 ($3C - $3D). 
l'adresse de fin en 62 - 63 ($3E - 
$3F). 

CALL -629 (64907) : envoie un 
RETURN avec effacement de la ligne 
depuis le curseur jusqu'au bord droit 
de la fenetre de texte. 

CALL -651 (64885) : attente de la 
frappe d une touche. 

CALL 657 (64879): attente d une 
chaine de caracteres qui est stockee 
dans le tampon d'entree. Tous les ca- 
racteres sont acceptes : virgule. dou- 
ble point, etc. 
Exemple : 

CALL -657: POKE 72.0: CALL 
-144 

attente d'une instruction Moniteur. 
execution de cette instruction et re- 
tour au Basic. L'instruction doit etre 
suivie de "N D9C6G". Non utilisable 
en mode immediat. 
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CALL -662 (64874) : comme ci- 
dessus mais affichage prealable du 
curseur. 

CALL -665 (64871): comme ci- 
dessus mais effectue d'abord un re- 
tour chariot. 

CALL -715 (64821): affichage du 
curseur et attente d un caractere. 
CALL -741 (64795) : affichage du 
curseur et attente d un caractere. A 
utiliser a la place de GET si le pro- 
gramme appelle un fichier DOS. 
& CALL -856 (64600) : WAIT. La 
duree de la pause depend de la va- 
leur de l'accumulateur : 
A delai en miilisecondes 
10 0.4 
50 7.1 
100 26.9 
200 105,1 
255 169.8 

CALL -868 (64668) : efface la ligne 
de texte entre la position du curseur 
et la marge droite de I'ecran (identi- 
que a ESC F). 

CALL -912 (64624) : deplace tout 
le contenu de I'ecran d'une ligne vers 
le haut. Exemple : pour un SCROL- 
LING de I'ecran de N lignes : FOR 
L=l TON: CALL -912: NEXT 
CALL - 922 (64614) : effectue un 
saut de ligne du curseur sans change- 
ment de colonne (identique a CTRL 
J). 

CALL -926 (64610): effectue un 
retour chariot (CR). 

CALL -936 (64600) : vide la fene- 
tre d'ecran texte et positionne le cur- 
seur dans le coin superieur gauche de 
la fenetre d'ecran (correspond a I' ins- 
truction HOME de I" Applesoft). 
CALL -958 (64578) : efface I'ecran 
entre la position du curseur et le bas 
de la fenetre (identique a ESC F). 

CALL -998 (64538) : fait remonter 

le curseur d'une ligne. 

FOR L=l TO N: CALL -998: 

NEXT: remonte le curseur de N-2 

lignes. 

CALL 1008 (64528) : deplace le 
curseur vers la gauche. 
Testez les instructions suivantes : 
A$= "DEMONSTRATION ": FOR j=l 
TO LEN(A$): 

HTAB 27 + J: FOR 1=1 TO 20- 
CALL- 1008: 

CALL -1008: CALL -1008: 
PRINT MID$(A$.J.l)" ":: NEXT I.J 

CALL -1036 (64500): deplace le 
curseur vers la droite. 

CALL -1169 (64367): modifie le 
RESET et le dirige vers le sous-pro- 
gramme dont l'adresse aura ete 
POKee prealablement en 1010 et 
1011 (decimal). 
Exemple : 

POKE 1010,102 :POKE 
101 1.213:CALL- 1169 
l'appui sur la touche RESET (precede 



par CTRL sur le lie) fera executer le 
programme Applesoft. En effet le 
RESET pointe sur $D566 (54630 - 
voir plus loin). 

CALL -1216 (64320): passage en 
mode graphique basse resolution 
(GR). Plus generalement retour a la 
page graphique definie precedem- 
ment. 

CALL - 1223 (64313): passage en 
mode TEXT. 

CALL -1318 (64218): affiche les 
registres A. X. Y. P. S. 

CALL -1370 (64166) . demarrage a 
froid 

CALL -1438 (64098): effectue un 
RESET 

& CALL -1718 (63818) : affiche X 
blancs. Si X - affiche 256 blancs. 
#& CALL -1988 (63548) : efface la 
portion haute et gauche de I'ecran 
pointee par $2D (45) et Y. Exemple 
POKE 45, Vert. : & CALL -1988 
0. Horiz. 

& CALL -1992 (63544): efface 
I ecran GR jusqu'a la ligne specifiee 
dans Y (compris entre et 47) 
Exemple : & CALL - 1992. 0. 0. Y. 
# CALL -3082 (62454) : en mode 
haute resolution, peint tout I'ecran 
avec la derniere couleur utilisee. 
Exemple : 

HCOLOR = C: HPLOT 0.0: CALL 
62454 

peint I'ecran dans la couleur C (C 
compris entre et 7). 
Ou encore : 

POKE 228.X: HPLOT 0.0: CALL 
62454 

avec X compris entre et 255 : fonds 
divers. 

CALL -3086 (62450) : vide la page 
HGR en cours d' utilisation. Peut se 
faire tout en restant en mode TEXT. 
CALL -3102 (62434) : passage en 
mode HGR avec effacement (CALL 
62430 pour ITT 2020). 

CALL -3112 (62424): passage en 
mode HGR2 avec effacement (CALL 
62420 pour ITT) 

CALL -3456 (62080) : passage en 
mode FLASH. 

CALL -3465 (62071): passage en 
mode INVERSE. 

CALL -3469 (62067) : passage en 
mode NORMAL. 

CALL -4818 (60718): affiche la 
valeur actuelle de FAC (accumulateur 
flottant). 

& CALL -4828 (60708) : affiche en 
decimal les 2 octets dans X et A. 

& CALL -9414 (56122): affiche 
une chaine pointee par Y et A et se 
terminant par $00 ou $22. 
Exemple : 

A$="BONJOUR": FOR L=l TO 

LEN(A$): 

POKE8191+L. 



ASC(MID$(A$.I.1)):NEXT L: 
POKE L+8191,0: TEXT: HOME 
&CALL 56122.0.0,32 

CALL -10601 (54935): remet le 
pointeur en debut de programme 
Basic et lance l'execution. Les varia- 
bles sont conservees. 

CALL -10644 (54892): equivalent 
de la commande CLEAR 

CALL -10677 (54859): equivalent 
de la commande NEW. 

CALL 10906 (54630): execution 
du programme Basic. Les variables 
sont perdues (commande RUN de 
1'Applesoft). 

CALL -10964 (54572): attente 
d une chaine de caracteres qui sera 
stockee dans le tampon d'entree. 
Tous les caracteres tels que ":" ":" 
"." sont acceptes (non utilisable en 
mode immediat). 
Exemple : 

CALL -10964: POKE 113.0: POKE 
114.32: 

&CALL 58850.255,0.2 
saisie d'une chaine de caracteres dans 
le tampon d'entree et deplacement en 
$2000. Cette chaine pourra etre affi- 
chee par un &CALL 56122,0.0.32. 

# CALL -20926 (44610): affiche 
un nombre entre et 255. cadre a 
droite sur 3 colonnes. Le nombre a 
afficher doit prealablement etre POKe 
en 68 ($44). 

# CALL -22572 (42964) : deplace 
les buffers (tampons) du DOS. La 
nouvelle adresse doit etre POKee en 
40193 et 40192. 

Exemple . 

POKE 40193.PEEK(40193)-N 
CALL 42964 

libere N.256 octets entre $9C00 et 
les tampons en deplacant ceux-ci de 
N pages vers le bas. HIMEM est dimi- 
nue en consequence et ni FP ni 
RESET ne modifient HIMEM Cela 
est interessant pour stocker dans une 
zone protegee un sous-programme 
qui ne risque pas d'etre ecrase. sauf 
apres un BOOT. Pour revenir a la 
normale. on pourra faire un 
POKE 40193. 156: POKE 40192 
211 : CALL 42964. 
CALL -23186 (42350) : effectue un 
CATALOG du dernier drive utilise. 
Pour avoir le CATALOG des deux 
drives d'un slot, faire : 
CALL 42350: 

POKE 43624.3-PEEK(43624): 
CALL 42350 

CALL 1016 : lance l'execution du 
programme machine pointe par 
CTRL-Y. 

CALL 1013 : lance l'execution du 
programme machine pointe par & 
($3F5 - $3F7). 

# CALL 1002 : reconnecte les poin- 
ters du DOS. 

Exemple : modifier le sous-pro- 
gramme de sortie : 



POKE 54.0. POKE 55.3: CALL 
1002 

les sorties seront dirigees vers une 
routine en $300. 

CALL 979 : re-initialisation du DOS 
avec effacement du programme 
Basic. 

CALL 976 : re-initialisation du DOS 
sans effacement du programme Basic. 

Conclusion 

Dans certains cas. il est necessaire de 
modifier le contenu des registres 
avant l appel d un sous-programme. 
Or 1'Applesoft ne permet pas la modi- 
fication directe d"un registre. 
Pour y parvenir avant un CALL, il 



existe deux possibilites : 

1) Utiliser les adresses de sauvegarde 
de ces registres ($46 et suivantes). La 
sequence destructions est alors la 
suivante : 

- un CALL - 182 sauvegarde les re- 
gistres. 

- on POKE la ou les nouvelles va- 
leurs dans les adresses correspondant 
respectivement a A. X et Y. 

- I'adresse du sous-programme a ef- 
fectuer doit etre POKee en $3A et 
$3B (58 et 59) qui sont les adresses 
de sauvegarde du PC (PCL <?t PCH). 

- on termine par un CALL -327 qui 
restaure les registres et lance I' execu- 
tion du sous-programme pointe par 
PCL et PCH. 



2) Utiliser l'utilitaire AMPERCALL qui 
fournit egalement la possibility de 
POKEr dans deux octets memoire 
consecutifs. 

Appels : 

• &CALL adresse.A.X.Y 

(fournir obligatoirement une valeur 
a chacun des registres) 

• &POKE adresse.expression 
(toute valeur inferieure a 65535) 

Ce programme est relogeable. Avant 
la premiere utilisation, il faut revecto- 
riser I' ampersand. 
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retour au BASIC. 



Precisions et errata 



Suite a 1' article concernant le disque 
virtuel 64K. publie dans Pom's 14, 
un lecteur attentif apporte quelques 
precisions. Celles-ci vous permettront 
d'utiliser. sans perturbation even- 
tuelle, ce programme en affichage 80 
colonnes. Le nombre d' octets a pro- 



teger n'est plus alors 516 mais 1024. 
Les modifications a apporter aux 
programmes RWAUXINIT et 
RWAUX sont les suivantes : 
Dans RWAUXINIT remplacer : 

- La ligne 51 par : 
LDA #$0C 

Dans RWAUX remplacer : 

— Les lignes 12 et 13 respectivement 
par : 



ORG $DF65 
OBJ $5065 

- La ligne 71 par : 
LDY #$05 

- A la ligne 123, L$100 devient 
L$102 

- Et enfin, completer la ligne 30 par 
0607. Cette ligne devient alors : 
TB2 HEX 000104050607. 
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Micro-Informations 



Jean-michel Gourevitch 



Applemaniaques, mes freres, voici un 
debut d'annee en forme de feu d'ar- 
tifice : la ligne Apple II se diversifie et 
se multiplie, le Macintosh s'installe. 
Des nouveautes, en voici pour tout le 
monde. 

Commengons par sonder les murs de 
Cupertino; la-bas, au siege d'Apple, 
on en a deja beaucoup entendu. 
mais jamais autant qu'en ce debut 
d'annee 1985. 

La premiere nouveaute va causer 
des joies, mais provoquer aussi cer- 
taines deceptions, 1' Apple //c devient 
le nouveau standard de la famille 
Apple II. Une petite ligne qui declen- 
che de nombreuses consequences : 
-1 Les anciens Apple II et He pour- 
ront etre mis au niveau grace a un 
kit que commercialisera Apple. Un 
nouveau processeur "65C02" rem- 
placera le "vieux" 6502. donnant 
ainsi acces aux 27 nouvelles instruc- 
tions. De nouvelles ROMs contenant 
les graphiques de la souris (Mouse- 
text) se substitueront aux anciennes. 
II est vraisemblable que, dans le cou- 
rant de l'annee, tous les Apple lie in- 
tegreront ce kit (l'apparition du lie 
n'a pas rue le lie). Au contraire, le He 
ne s'est jamais aussi bien vendu; a 
tel point que les commerciaux d'Ap- 
ple ont du annuler d'urgence toutes 
les promotions a prix "casses" du He. 
-2 La seconde consequence est net- 
tement moins agreable. La modifica- 
tion de mise a niveau s'effectue par 
ECHANGE du processeur, et non 
par addition d'une carte. Dans ces 
conditions, tous les programmes des 
Apples II qui tournaient mal ou bizar- 
rement sur le lie seront affectes des 
memes defauts sur les ordinateurs 
"kites". Bonsoir la compatibility ! II y 
a des Mulfjplans, des PFS et des Ap- 
plewriters qui ne s'en releveront pas. 

—3 La derniere consequence entrai- 
nera une depense supplemental 
pour tous ceux qui avaient rechigne 
devant l'achat d'une extension de 
memoire. Le standard du He etant 
d'une capacite de memoire de 128 
Ko. il faudra se procurer les 64 Ko 
supplementaires (a moins de disposer 
d'une carte 80 colonnes etendues, 
d'une carte RVB Chat Mauve, etc..) 

La deuxieme nouveaute, et elle est 
de taille pour la famille des Apple II, 
est la naissance du "grand" frere du 
He, connu actuellement sous le nom 
de //x. Dans une interview au men- 
sue! britannique Apple Users, John 
Sculley, le directeur general d'Apple, 
a laisse entendre que le //x contien- 



drait, a la place du lecteur de dis- 
quettes de 5 pouces 1/4 tradirionnel 
(et tragiquement limite a 143 Ko), un 
lecteur de 3 pouces 1/2 (le format 
des disquettes du Macintosh, d'une 
capacite de 360 Ko), voire meme. un 
disque dur de ce format. Enfin, le 
nouveau //x serait equipe d'origine 
de 256 Ko de memoire vive. La 
"bete" serait disponible courant 
1985. 

La troisieme nouveaute est un reseau 
local destine a 1' utilisation de plu- 
sieurs Macintosh (jusqu'a 32). Le re- 
seau utiliserait TApplebus", un ser- 
veur contenant un stockage de 
masse sur disque dur. 
Enfin, comme si tout cela ne suffisait 
pas, Apple presenterait dans le cou- 
rant de l'annee une imprimante a 
laser dont le prix constituerait, a lui 
seul, une sorte de revolution (on 
parle de moins de 12000 F...) 

En attendant, 1984 a vu le succes 
d'un ordinateur bien different de Big 
Brother : le Macintosh s'impose. sur- 
tout avec 512 Ko. Deja, a Cupertino, 
on envisage des perfectionnements : 
la couleur ! A en croire la revue ame- 
ricaine A +, le Mac en couleurs por- 
terait comme nom de code Rainbow 
(Arc en del). Un circuit de Texas Ins- 
trument et une sortie sur Tarriere de 
Macintosh permettraient de le bran- 
cher sur un moniteur couleur. On 
nous avait bien prevenu chez Apple : 
ca ne sera pas donne (comptez 800 
dollars sans le moniteur...) 

Pour les voyageurs. le Macintosh de 
poche avec ecran plat et alimentation 
autonome arrive. Un creneau porteur 
aux Etats Unis. Voici pour l'avenir. 
mais il existe deja bien des moyens 
d'engloutir des fortunes dans les 
Apple d'aujourd'hui. 

Ameliorez votre Apple II 

En commenqant par la memoire de 
masse. Une seule solution : le disque 
dur. Avec un nouveau Profile 
commercialise par Apple. Allelouiah ! 
il a vu sa capacite doubler : 10 Me- 
gaoctets, contre 5 pour l'ancien. de 
quoi stacker le contenu de 70 dis- 
quettes de 5 pouces 1/4. Dommage 
que le prix soit consequent : 23460 F 
TTC. 

Revons un peu en consultant la pu- 
blicity parue pour le "Sider", un dis- 
que dur, produit par First Class Peri- 
pherals, d'une capacite de 10 
Megaoctets. II supporte les systemes 
Dos 3.3. ProDos. CP/M 2.23. CP/M 
1.0, 1.5, 2.0, Apple Pascal 1.1 et 1.2 



et permet de "booter" sur le disque 
dur. L'esthetique est superbe. Prix : 
695 dollars. A vous de faire la 
conversion en francs... II est vrai 
qu' Apple vient de mettre en place, 
pour les membres du Club Apple, 
une formule de credit special baptise 
Apple Check. 

Desormais les accents circonflexes 
existent sur la version francaise d'Ap- 
ple Works qu'Apple sort enfin (appa- 
remment, la francisation n'etait pas si 
facile). Apple Works, dont la version 
americaine a ete testee dans Pom's, 
est un logiciel integre et performant 
contenant un tableur, un gestionnaire 
de fichiers et un traitement de texte. 
pour Apple He ou He (accompagne 
d'un manuel de 330 pages et d'un 
livret de travaux pratiques pour 2490 
F TTC). 

L'une des lacunes d'Apple Works, 
etait de ne pas disposer de fonctions 
de mailing et de correction. Voici 
l'oubli repare (en anglais seulement 
helas) grace a Megaworks. Un logi- 
ciel de mailing et de corrections 
(30000 mots inclus et la possibility 
d'en inclure 10000 autres). L'autre 
point faible d'Apple Works residait 
dans les graphiques. Facile, avec 
Graphworks qui permet d'editer sous 
forme de camemberts, d'histobarres 
ou de courbes. les donnees d'Apple 
Works (80 dollars). A noter, pour les 
"afficionados" d'Apple Works que 
celui-ci sera bientot disponible pour 
Macintosh. 

Imitcz 1'Apple lie 

Pendant qu'Apple s'echine a trans- 
former le He en //c, les fabricants de 
peripheriques se cassent la tete pour 
faire l'inverse. Qui a dit que le lie 
etait une machine fermee ? Surement 
pas les britanniques de Cirtech. lis 
ont realise un module CP/M qui 
s'installe dans le coffret du // c et 
joue le role d'une carte Z80. Elle est 
meme, parait-il un peu plus rapide. 
Prix : 95 Livres. 

L'utilisation du He avec une ancienne 
imprimante posait un probleme : le 
standard des imprimantes etait jadis 
parallele et est devenu serie. Voici 
done des convertiss^urs de serie en 
parallele. lis permettent de brancher 
le lie sur un peripherique necessitant 
une interface parallele (e'etait notam- 
ment le cas de l'ancienne imprimante 
DMP d'Apple). Le boitier Hamlet de 
Belkin Components permet ce mira- 
cle (un mini miracle seulement. ma 
mere) pour 99 dollars. La serial box 
de PBI Software le realise aussi pour 
90 dollars. 
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Pour l'Apple II 

Une carte multi fonctions, realisee 
par AST Research, qui dispose d'un 
branchement pour modem ou pour 
imprimante, et en prime d une hor- 
loge. Le tout sur la meme carte pour 
consommer moins de courant. 
Un complement de poignet pour l'or- 
dinateur. C'est la montre Seiko PC 
Datagrap distribute par Markline. 
Elle vous permet de stacker 2 Ko a 
votre poignet dans 12 dossiers diffe- 
rents. On peut y entrer des numeros 
de telephone, des itineraires. des 
dates, etc... La montre se relie a ['in- 
terface RS 232 C (interface serie) de 
l'Apple. Un logiciel, livre avec, per- 
met de transferer et de stacker les in- 
formations sur la montre. Prix de 
l'ensemble : 120 dollars. En plus, elle 
donne I'heure... 

Enfin. un accessoire permettant de 
stocker des documents provenant de 
trois ordinateurs. et destines a une 
seule imprimante parallele. Le multi 
buffer de Scooter stocke 64 Ko, per- 
met de les reimprimer a la demande, 
joue a la fois le role d un buffer, et 
celui d une boite de selection lors- 
qu'on ne dispose que d une seule 
imprimante. Prix : 389 dollars. 

A remarquer aussi une version a pa- 
raitre du celebre simulateur de vol 
Flight Simulator II de Sublogic. Cette 
nouvelle version permet de voler a 
plusieurs. Les Apples sont relies par 
cable ou par modem, et on peut 
voler en formation, apercevoir l'ap- 
pareil d'un ami. voire lutter contre lui 
en combat aerien... 

Macintosh, c'est gagne. 

11 existe, en matiere de micro-infor- 
matique, deux moyens de s'assurer 
qu'un ordinateur s' impose sur le 
marche. La piemiere. c'est de cons- 
tater I' apparition des logiciels de 
copie de programmes. La seconde 
consiste a compulser les catalogues 
des fabricants daccessoires. Pour 
Macintosh, pas de doute, c'est 
gagne. Voici une premiere version de 
BitCopy II Plus pour Mac (les ama- 
teurs apprecieront). Une revue ame- 
ricaine. Mac World, s'est deja exclusi- 
vement voue au culte de la nouvelle 
idole. 

Les accessoires 

On en trouve pour tous les gouts et 
pour toutes les bourses. Kensington 
Microware propose un socle pivotant 
pour Mac, un modem portable, une 
unite de controle permettant d'ali- 
menter 1' ordinateur et ses accessoi- 
res, et de choisir entre la sortie 
modem, une imprimante et un acces- 
soire. Des petits elevateurs metalli- 
ques, pour incliner 1'imprimante Ima- 



gewriter vers I'avant, permettent 
simultanement de mieux voir ce 
qu'on imprime et de loger le papier 
sous 1'imprimante. 

MicroRain a construit un meuble. 
baptise MacStation. qui loge le Ma- 
cintosh, un drive, la documentation 
et la souris et permet d'installer 1'im- 
primante au sommet. 
Assimilation Process a remplace la 
souris par un Mac Turbo Touch, une 
boule qu'on fait rouler avec la main. 
Cette firme propose aussi des logi- 
ciels et des cables pour relier le Ma- 
cintosh a des imprimantes a margue- 
rite et a des Epson. 
Et surtout un logiciel. Mac Memory 
Disk, offrant I' utilisation d une partie 
de la memoire d'un Mac de 512 Ko 
comme pseudo disque. Les avanta- 
ges sont : la suppression des acces 
programmes et la rapidite. Apple tra- 
vaillerait aussi sur un tel disque. 
D'autres logiciels permettent de relier 
le Mac a des imprimantes Nec (Mac- 
print), ou a des imprimantes a mar- 
guerite (Proprint de Creighton). 

A remarquer encore le Thunderscan. 
de Thunderware, une camera qui 
permet de numeriser des photos et 
de les reproduire avec Mac. A noter 
que cette camera s'installe a la place 
de la cartouche ruban de l'lmagewri- 
ter. et qu'il suffit de faire defiler la 
photo a reproduire sur 1'imprimante. 
Prix : 229 dollars. 

Les logiciels 

Des programmes pour Mac comme 
s'il en pleuvait. Des plus simples : 
des jeux de caracteres comme ceux 
de Mac The Knife 2. ou Fluent Fonts 
de Casady. Des logiciels astucieux. 
comme Mac Publisher, de Boston 
Telecomputer. donne la possibilite 
d'editer une lettre d'informations 
(100 dollars). Des programmes so- 
phistiques comme Fact Finder, de 
MacWare. permettant d'entrer des in- 
formations sous n'importe quelle 
forme, puis de les extraire facilement 
par mots cles. dates, etc... 

Le Pascal UCSD pour le 
Macintosh 

Le P-system est. depuis peu. im- 
plants sur le Macintosh. En effet. 
BUS Informatique, unique represen- 
tant de SOFTECH en France, distri- 
bue la version IV. 1 du Pascal UCSD. 
Le systeme comporte. outre ie 
compiiateur Pascal, les compilateurs 
Fortran 77 et Basic, un editeur pleine 
page, un assembleur, un generateur 
de code natif. .. 

Sur le Macintosh, le Pascal UCSD 
s'emploie exactement comme sur 
toutes les autres machines. Comme 
dans les precedentes versions, on re- 
trouve : les memes commandes (tou- 



jours sur deux niveaux: il est regret- 
table que la souris ne joue pas, id. 
son role habituel !), la segmentation 
des programmes, la compilation se- 
paree, les memoires dynamiques... 
Le Pascal UCSD permet d'acceder a 
toutes les fonctions du Macintosh. II 
est muni d une bibliotheque. lui don- 
nant la possibilite d'utiliser MAC- 
DRAW. Une UNIT est destinee a la 
gestion de la souris... 
La portabilite du systeme est assuree 
par BUS. 



Catalogues du CXP 

L' edition 1984 / 85 des catalogues 
du CXP est sortie : 10 tomes de 200 
pages chacun en moyenne. Progiciels 
systeme. comptabilite. gestion finan- 
ciere et aide a la decision, de la pro- 
duction a la vente. paie et gestion du 
personnel, bureautique - gestion do- 
cumentaire - CAO. professions libe- 
rals, progiciels sectoriels (2 tomes), 
progiciels scientifiques et techniques. 
Malgre toutes ces informations, on 
n'y trouve pas les logiciels de 
Pom's... Ces catalogues sont des re- 
pertoires et non des bancs d'essai. 



Adresses : 

Apple Seedrin - ZA de Courta- 
boeuf - av. de l'Oceanie - BP 131 - 
91944 Les Ulis Cedex. 
First Class Peripherals - PO Box 

6187 - Lehig Valley - PA 18001 
USA. 

Megahaus - 5M703 Oberlin d 2 - 
San Diego - CA 92121 USA. 
PBI Software - 1155 B H Chess 
Drive - Foster City - CA 94404 USA. 
Cirtech - Currie Road - Ind. Estate - 
Galashiels - SelkirkshireTDl 2BP 
UK. 

Belkin Components 4718 W Ro 
secrans - Hawthorne CA 90250 
USA. 

AST Research - 2121 Alton Av. Ir- 
vine - California 92714. 
Markline - PO Box C5 Belmont - 
MA 02178 USA. 

Scooter, Ohm Electronics - 746 

Vermont - Palatine IL 60067 USA. 
Sublogic - 713 Edgebrook Drive 
Champaign - IL 61820. 
Kensington Microware - 251 Park 
Av.South NY - NY 10010. 
Creighton Dev. Inc. - 4931 Birch 
St. Newport Beach - CA 92660. 
Thunderware - 19 G Orinda Way - 
Orinda - CA 94563. 
Casady - PO Box 223 779 Carmel - 
CA 93922. 

Boston Telecomputer - 19 Ledge 
Hill Road Boston - MA 02132. Bus 
Informatique - 3. rue de la Boetie - 
75008 Paris - Tel 265 06 04. 
CXP - 5, rue de Monceau - 75008 
Paris - Tel 225 19 60. 



68 Pom's n" 16 



Certains systemes utilisent le priricipe 
de la signature en fin de listing, pour 
identifier les programmes. II peut etre 
effectivement pratique de savoir rapi- 
dement si deux programmes sont dif- 
ferents ou si tel listing correspond 
bien a tel fichier sur disque. 
Cest I'objectif de la routine en as- 
sembleur presentee ici. Elle a ete 
ecrite avec Big Mac et se place en 
$300. Un CALL 768 initialise le vec- 
teur de l'ampersand a $30A. Ainsi. a 
tout moment, on obtient la signature 
du programme Applesoft en me- 
moire en tapant simplement &. 

Quelques explications 

Cette routine utilise les pointeurs : 

- TXTTAB ($67 - $68) pour 
connaitre l'adresse de debut du pro- 



gramme Basic (generalement $801). 
- PGREND ($AF $B0) pour 
connaitre l'adresse de fin du pro- 
gramme Basic. 

Elle se sert egalement de routines 
courantes telles que COUT. CROUT 
et LINPRT ($ED24) pour afficher en 
decimal les nombres hexa contenus 
dans les registres A et X. 

Son principe 

Considerer tous les octets du pro- 
gramme, ceux de rang pair et ceux 
de rang impair. On effcctue un EOR 



Signature 

Patrice Neveu 

des octets impairs (ler. 3eme.) avec 
I' octet de stockage 1DENTIFIE et on 
realise simultanement la meme ope- 
ration avec les octets pairs, sur l'octet 
IDENTIFIE + 1. 

NB : il faut toutefois remarquer que 
PGRF.NI) situe plus exactement le 
debut de la zone libre. non utilisee 
par le programme Basic. II en resulte 
que SIGNATURE soustrait 3 a cette 
adresse. afin de pointer sur la fin du 
programme Applesoft et non sur le 
debut de la zone utilisable. 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
1 9 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
3? 
40 
41 
42 
43 
44 
45 
46 
47 
48 
4? 
50 



* CREE UN CODE I DENT I F I CATEUR 

* POUR PROGRAMMES APPLESOFT 



* LABELS * 

* * 
*************** 



TXTTAB 

ALIRE 

IDENTIFIE 

PRGEND 

PGRFIN 

AM PER 1 .- 1 
COUT 
LINPTR 
CROUT 



*67 
S06 
$03 
«AF 
*1 8 

*0 3F5 
*FDED 
$ ED24 
SFD3E 



ORG 530 



********************************* 

* INITIALISE L 'AMPERSAND * 

* * 
*********************** + * + *+.*** + *. 



LDA »*0A 
STA AMPERV+1 
LDA t**0 3 
STA AMPERV+2 



********************************* 

* PREND EN TXTTAB <*67-6S) * 

* LE DEBUT DU PROGRAMME, PUIS * 

* PREND EN PRGEND (SAF-B0) * 

* LA FIN DU PROGRAMME. * 

* FAIT UN 'EOR SUR 2 OCT. AVEC * 

* LES OCTETS DU FROGRAMME BASIC * 

* * 
********************************* 



5 • 




CLC 




52 








53 




LDA 


TXTTAB 


54 




STA 


ALIRE 


55 




LDA 


TXTTAB + 1 


56 




STA 


ALI RE* 1 


57 








58 




LDA 


PRGEND+ 1 


59 




STA 


PGRFIN+1 


60 








61 




LDA 


PRGEND 


62 




CLC 




63 




SBC 


1**03 


c4 






PGRFIN 


65 




BCC 


CONT 4 


66 




JMP 


CONT 5 


67 








68 


C0NT4 


LDA 


PRGEND+ 1 


69 




STA 


PGRFIN+1 


70 




DEC 


PGRF IN+ 1 


71 








72 


C0NT5 


LDA 


HS00 


73 




STA 


IDENTIFIE 


74 




STA 


I DENT I FI E+ 1 


75 








76 




TAY 




77 








78 


CONT 


LDA 


ALIRE+1 


79 




CMP 


PGRFIN+1 


80 




BCC 


C0NT1 


31 




BEQ 


CONT 3 


32 




JMP 


CONT 2 


83 








34 


C0NT3 


CPY 


PGRFIN 


85 




BCS 


CONT 2 


86 








87 


C0NT1 


LDA 


< AL I RE) ,Y 


33 




CLC 




39 




I NY 




90 




BNE 


CONT0 


91 




INC 


ALIRE+1 


92 








93 


CONT0 


EOR 


IDENTIFIE 


94 




STA 


IDENTIFIE 


95 




LDA 


(ALIRE) ,Y 


96 




EOR 


I DENT I F I E+ 1 


97 




STA 


I DENT I FI E+ 1 


93 








99 




CLC 




100 




I NY 
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101 




BNE 


CONT 


1 1 6 


JSR LINPTR 


102 




INC 


ALIRE+1 


1 1 7 








JMP 


CONT 


1 1 8 


RTS 


1 04 








1 1? 




105 


C0NT2 


JSR 


CROUT 


1 20 




1 06 




LDY 


8*00 


121 


»*«»»«*#****»*»***»**»****»**** 


107 








122 


» MESSAGES * 


108 


PRNTCODE 


LDA 


CODEMSG , Y 


123 


* * 


1 0? 




BEQ 


AFFCODE 


1 24 


#******»*****•************»***** 


1 1 




JSR 


COUT 


125 




1 1 1 




I NY 




126 




1 1 2 




BNE 


PRNTCODE 


1 27 


CODEMSG EQU * 


1 13 








128 


ASC "SIGNATURE: " 


114 


AFFCODE 


LDA 


I DENT I FI E+ 1 


129 


HEX 00 


115 




LDX 


IDENTIFIE 


130 





#300 .37D 
















0300- 


A9 


OA 


3D 


F6 


03 


A9 


03 


3D 


0308- 


F7 


03 


18 


A5 


67 


35 


06 


A5 


0310- 


63 


35 


07 


A5 


BO 


85 


19 


A5 


0318- 


AF 


13 


E9 


03 


85 


18 


90 


03 


0320- 


4C 


29 


03 


A5 


BO 


35 


19 


C6 


0328- 


1? 


A9 


00 


35 


08 


35 


09 


A3 


0330- 


A5 


07 


C5 


19 


90 


09 


FO 


03 


0338- 


4C 


5A 


03 


C4 


13 


BO 


IB 


Bl 


0340- 


06 


13 


C8 


DO 


02 


E6 


07 


45 


0343- 


03 


85 


03 


Bl 


06 


45 


09 


35 


0350- 


09 


13 


C3 


DO 


DB 


E6 


07 


4C 


0353- 


30 


03 


20 


8E 


FD 


AO 


00 


B9 


0360- 


72 


03 


FO 


06 


20 


ED 


FD 


C3 


0368- 


DO 


F5 


A5 


09 


A6 


03 


20 


24 


0370- 


ED 


60 


03 


C9 


C7 


CE 


CI 


04 


0373- 


D5 


D2 


C5 


BA 


AO 


00 







] L I ST : DEMOS I GNATURE 

1 TEXT : POKE 33,40: HOME : INVERSE : HT 
AB 14: PRINT " DEMOS I GNATURE " : NORM 
AL 

5 PRINT CHR* (4)"BL0AD SIGNATURE" 
10 VTAB 5: PRINT "'SIGNATURE' EST UNE SO 
US-ROUTINE PERMETTANT AUX P 

ROGRAMMES APPLESOFTS DE SIGNER, C 
EST A DIRE DE DONNER LEUR IDEM 
TITE. " 

20 PRINT : PRINT "PAR EXEMPLE, LA SI GNAT 
URE DE CE PROGRAMME EST :" 

: CALL 768 

25 PRINT 



Trues et Astuces 

Eureka ! II existe un PEEK permet- 
tant de savoir si un point de l'ecran 
haute resolution est allume ou eteint. 

A = PEEK(Y/64) : 
D = Y - 64 * A : 
B = INT(D/8) : 
C = D - 8 * B : 
E = INT(X/7) : 

P = PEEK(8192 * PG + 1024 * C 
+ 128 * B +40 * A + E) : 
P = P/2"(X-E*7)/2: 
P = (P-INT(P)>.5) 

avec X, Y et PG les coordonnees ho- 
rizontale, verticale et le numero de la 
page haute resolution en cours, on 
obtient P = 1 si le point est allume, 
P = sinon. 

Si vous n'aimez pas les lignes Apple- 
soft aussi complexes, voici encore 
plus court mais en assembleur. 
Apres avoir BRUNe le programme 
HSCREEN (relogeable) suivant. il 
suffit de taper : 
POKE 226.Y : 
C = USR (X) 

avec X et Y les coordonnees et P de- 
fini comme precedemment. 



L Ampersand est une merveilleuse 
instruction que nous a offert l'Apple- 
soft (tres discretement d"ailleurs). 
Malheureusement, la quasi totalite 
des routines qui ont ete developpees 



se montrent d'un egoisme prodigieux 
a l'egard de leurs consoeurs. 
Nombreux sont done les lecteurs de 
Pom's qui, ignorant 1'assembleur, 
doivent perpetuellement charger les 
memes fichiers pour pouvoir utiliser 
simultanement plusieurs routines 
sous Ampersand. 

Une methode relativement simple, 
mais cependant peu connue consiste 
a modifier tous les appels de la 
forme : 

& <parametres eventuels> 
par 1' instruction : 

CALL <adresse> , <parametres 

eventuels>(selon les cas, il faudra ou 

non inclure une virgule entre 

l'adresse et les parametres). 

Pour calculer l'adresse, il suffit d'ini- 

tialiser la routine de maniere habi- 

tuelle, puis de calculer : 

ADR = PEEK(1014) + 256 * 

PEEK(1015) 

Apres avoir remplace tous les appels 
a cette routine via l'Ampersand par 
un CALL a la valeur ADR, on peut 
alors charger une seconde routine 
qui sera directement appelee par l'&. 

Vite un exemple : tapez FP pour fixer 
H1MEM au plus haut, puis lancez 
l'utilitaire RENUMBER de la dis- 
quette systeme du Dos: vous obtien- 
drez : 

ADR = 36352 et il sera possible de 

lancer RENUMBER par : 

CALL 36352 pour renumeroter un 



programme et 

CALL 36352H (au lieu de &H) pour 
le placer en attente de fusion. 



Certaines cartes graphiques Epson 
(Rom APL.B) posent parfois. et de 
maniere inexplicable, de serieux pro- 
blemes: par exemple, les impressions 
d'assemblage par Big Mac se reve- 
lent impossibles. 

L'origine provient de la ROM de la 
carte : a son entree les trois premie- 
res adresses de la page zero ($0000 
a $0002), qui seront utilisees. sont 
sauvegardees (en $C808) sur la pile 
dans l'ordre - 1 - 2. En sortie, mal- 
heureusement, on les restaure (en 
$C99F) dans l'ordre 0-2-1. Erreur 
fatale qui, en inversant deux adres- 
ses, fait chuter a coup sur tout pro- 
gramme les utilisant. 



La solution serait simple s'il ne s'agis- 
sait pas d'une ROM. done relative- 
ment couteuse a faire refaire par un 
particulier. La parole est done don- 
nee a M3C et Technology Ressour- 
ces. respectivement ancien et actuel 
importateurs d'Epson. 
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Courrier des lecteurs 

Alexandre Avrane et Alexandre Duback 



Je voudrais soulever le probleme de 
la compatibilite du logiciel MOUSE- 
PAINT avec d'autres imprimantes 
que I 'IMA GEWRITER. Ayant. en 
effet, cede a I'attrait de la souris Ap- 
pleMouse sur le //e (qui permet de 
rever a un Macintosh plein de 
slots...), me void bien dequ de ne 
pouvoir sortir les mises en page de 
MOUSEPAINT sur mon Epson RX- 
80FT. 

Je me tourne vers Pom's et ses lec- 
teurs (avant d'aller reclamer a Cuper- 
tino), pour trouver la solution logi- 
cielle ou materielle a cetts limitation 
des peripheriques utilisables avec 
MOUSEPAINT. 

Yvan Pellecuer - 69300 Caluire 

Trois questions sur ProDOS : 

1 - Quels sont les manuels Apple dis- 
ponibles ? 

2- Comment le fichier Startup charge- 
t-il le Basic. System ? 

3- Comment formater une disquette 
ProDOS sans passer par la disquette 
des utilitaires systeme ? 

Christian Coquelet - 77420 Champs- 
sur-Marne 

Pour ces trois points, reportez-vous a 
I' article sur P roDOS de ce numero. 

Apres avoir fait la conversion sous 
ProDOS d'un programme de gestion 
de stock, celui-ci refuse de fonction- 
ner. Les instructions du genre "Poke 
43646, x" pour changer de lecteur 
ne sont pas appreciees. La lecture 
des fichiers directs pose aussi quel- 
ques problemes. Enfin, le manuel 
livre detaille le fonctionnement des 
utilitaires mais quid des instructions 
nouvelles et de la syntaxe ?. 
Michel Jacquemard - 74420 Boege 

Stop ! Eloignez-vous tous de votre 
Apple et notez bien : les program- 
mes, conseils, astuces diverses et 
autres que vous avez pu apprendre 
pour le Dos 3.3 ne fonctionnent pas 
sous ProDOS. Au mieux. un POKE 
ou un CALL intempestif se revele- 
ront sans consequence; au pire. vous 
aurez detruit votre programme en 
memoire. voire lintegrite de votre 
disquette. Malgre des apparences 
semblables pour l'utilisateur. le DOS 
3.3 et ProDOS different radicalement 
dans leur architecture interne. Meme 
les CALLs effectues vers les vecteurs 
de la page 3 ne donnent plus les 
memes resultats. Done abstinence de 
tout patch devastateur; promis ? 



L 'acquisition recente d'un Apple //c 
m'a fait passer de la prehistoire de 



Tinformatique (je possedais un Sharp 
PC-1211) a I' ere moderne. Votre 
revue, fort bien faite. contribue large- 
men t a mon initiation. En tant que 
nouvel utilisateur, de nombreuses 
questions se posent a moi : 

1- Dans un article sur la compatibilite 
Apple //c (Pom's 13), Guy Lapautre 
parle de programmes utilitaires tels 
que renumerotation et fusion de pro- 
grammes qui figureraient sur la dis- 
quette utilitaires systeme de I' Apple 
//c; or je n'y ai pas trouve ces pro- 
grammes. 

D'autre part, il semble exister des uti- 
litaires ProDOS tels que FILER. 
CONVERT, etc... que je ne possede 
pas. Ou puis-je me les procurer ? 

2- Ma premiere utilisation, outre les 
jeux (on ne resiste pas a Lode Run- 
ner), a ete la gestion familiale (il faut 
se donner bonne conscience). Or, je 
n'ai pu reussir a convertir sous 
ProDOS le programme Gescompte 
de Pom's 10. 

3- Comment modifier Gescompte 
pour qu'il travaille en 80 colonnes ? 

4- Desirant m'initier au Pascal, j'ai 
achete le livre "Decouvrez Pascal sur 
Apple II". II y est dit que, lorsque 
Ton ne possede qu'un lecteur. il faut 
d'abord booter sur la disquette 
Apple3, puis inserer la disquette 
AppleO et presser Reset. Je suis inca- 
pable d'activer Pascal avec cette me- 
thode: y a-t-il un Pascal special pour 
le //c ? 

P. Pariysiti - 94370 Noiseau 

1- L'utilitaire de renumerotation est 
inclus dans une disquette ProDOS 
Tool-Kit commercialisee separement 
En revanche. FILER. CONVERT et 
le ProDOS Formatter sont normale- 
ment livres avec ProDOS. Demandez 
a votre revendeur de vous les four- 
nir. 

2- Convertissez a nouveau Ges- 
compte en ProDOS. en partant de 
votre fichier correct sous DOS 3.3; 
avant de l'executer. modifiez toutes 
les lignes contenant l instruction VE- 
RIFY (cette commande DOS 3.3 
n'existe pas sous ProDOS). en la 
remplacant par une instruction OPEN 
suivie d'un CLOSE (lignes 2040. 
21060....). D'autre part, les noms de 
fichiers ProDOS ne peuvent contenir 
plus de 15 caracteres et ne doivent 
pas comporter, en particulier. d'es- 
pace : modifiez les lignes 1220 a 
1230 en consequence. 

3- 11 n est pas tres difficile de modifier 
Gescompte pour le mode 80 colon- 
nes. Si un lecteur s'est passionne 
pour le probleme. qu'il nous en fasse 
part et nous transmettrons. 



4-Bizarre. bizarre, ca devrait fonction- 
ner... Toutefois, les anciennes ver- 
sions de Pascal UCSD ne parvien- 
nent pas a booter sur le He car elles 
sont incapables de reconnaitre la 
"carte 80 colonnes". Peut-etre votre 
probleme vient-il de la. 



Comment obtenir sur imprimante les 
accents circonflexes et les tremas, 
sans passer par un logiciel de traite- 
ment de textes ? 

J.-R. Vailong- 73000 Chambery 

La notice de votre imprimante vous 
fournit le code ASCII de l accent cir- 
conflexe et du trema (generalement 
94 et 126 respectivement); il faut 
alors inserer un caractere "espace ar- 
riere" (code ASCII 8) entre la lettre 
et son accent. La ligne Basic suivante 
ecrit la phrase "Pour etre ivre a 
Noel..."; 

PRINT "Pour e"; CHR$(8); 
CHR$(94); "tre ivre a Noe"; 
CHR$(8); CHR$(126); "I..." 



Je possede un Apple 11 avec une 
carte langage equipee d'une Eprom 
2716 me faisant acceder a des fonc- 
tions tres utiles (interruption du pro- 
gramme, sortie par Reset, commande 
de reboot). Malheureusement 
ProDOS refuse de se charger, et j'ai 
done du remettre la ROM normale. 
Comment pourrais-je reutiliser mon 
Eprom sans devoir a chaque fois 
dessouder et ressouder ? 

Hong Hai Vuong - 75015 Paris 

Votre Eprom. un peu particuliere 
(Lockbuster ?). ampute votre carte 
langage de 2 K octets de RAM. et 
ProDOS se trouve trop a l etroit dans 
les 14 Ko restants pour fonctionner. 
La solution la plus economique est 
probablement de racheter une se- 
conde carte langage et d'y placer 
ProDOS. Pour deplacer ProDOS 
vers un slot autre que le slot'O. ob- 
servez la page memoire $BF. et plus 
particulierement les adresses $BFA0 
-$BFF5; elles contiennent les vec- 
teurs utilises par ProDOS pour acti- 
ver alternativement ROM et RAM. 



Comment peut-on transferer un fi- 
chier sur IBM 36 pour le traiter sur 
Lisa ? 

S.Berthier - 37000 Grenoble 
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A priori, les logiciels LisaTcrminal et 
MacTerminal permettent une liaison 
synchrone aux normes IBM 
3270/BSC et SNA/SDLC. ou 
asynchrone (TTY et VT52/VT100 de 
Digital Equipment). D' autre part, on 
peut toujours brancher deux 
moderns, mais le debit est bien sur 
beaucoup plus faible (1200 bauds 
contre 1 Mega-bauds maximum). Si 
un lecteur a rente l'experience... 



Comment peut-on bloquer le cligno- 
tement du curseur et modifier la son- 
nette (CTRL-G) de T Apple comme le 
font certains logiciels ? 

C.Babin - 33200 Merignac 

Ces deux modifications ne peuvent 
s'effectuer qu'en assembleur, en mo- 
difiant en $36 - $39 les adresses 
respectives des routines de sortie et 
d' entree des caracteres. Voici, a titre 
d'exemple, une routine (tournant 
sous DOS 3.3) donnant un "beep" 
semblable a celui des utilitaires four- 
nis avec ProDOS : 



« 210 * 



• <C> 1984 Alexandre Avrane 



^ou t I 

(Ctrl 



ne modi + i an I le 'Bell' 
-G) du Mon i teur 



1 9 




LDA 


#<CSU2 


11 




STA 


*36 


12 




LDA 


«>CSU2 


13 




STA 


*37 


14 




JMP 


*3EA 


1 5 








16 


CSU2 


CMP 


11*87 


17 




BNE 


CSU2X 


13 




LDA 


MS 20 


1 9 




STA 


CSU2ZZ 


20 


CSU21 


LDA 


»2 


21 




JSR 


SFCA8 


22 




STA 


*C030 


23 




LDA 


■•24 


24 




JSR 


*FCA8 


25 




STA 


»C0 30 


26 




DEC 


CSU2ZZ 


27 




BNE 


CSU21 


29 




RTS 




29 


CSU2X 


JMP 


*FDF0 


30 


CSU2ZZ 


OFB 






ctrl-G ? 



J'essaie de comprendre les docu- 
mentations en anglais, fournies par 
Timportateur de l'Enhancer II, le 
Sup'R Terminal et la carte Legend 
64k mais ;"y perd mon "frangais". 

J.P. Merle - 13001 Marseille 

A notre connaissance. les traductions 
de ces manuels n'existent pas. 



1 -Comment obtenir sur I'imprimante 
et a 1'ecran les nombreux caracteres 
annonces par le menu "Pomme" du 
Macintosh ? Pour un texte scientifi- 
que, beaucoup d'entre eux seraient 



tres utiles : racine, lettres grecques. 
symboles 'mathematiques. . . 

2- Comment obtenir plus de 6 lignes 
d'impression par pouce ? 

3- Comment recuperer les caracteres 
accentues sur I'imprimante a partir 
du Basic ? 

4- Comment lister le catalogue d'une 
disquette sur l'imprimante sans pas- 
ser par la copie d'icran ? 

Jacques Boutique - 83 rue Louis Ca- 
simir Ranson - 87000 Limoges 



1- L'option "clavier" dans le menu 
"Pomme" n'est accessible qu'avec la 
police de caracteres Chicago. Pour 
les caracteres speciaux que vous sou- 
haitez obtenir, il serait bon de chan- 
ger de police. La plus adaptee aux 
textes scientifiques serait, semble-t-il, 
la police Geneva. Pour une impres- 
sion sur papier, si votre texte est un 
fichier Mac Write, vous n'aurez 
aucun probleme. 

2- Par defaut, 1' impression est de 6 
lignes par pouce (ESC A). II est tou- 
tefois possible de la modifier. En 
effet, ESC T24 correspond a un in- 
terligne classique et ESC T16 sup- 
prime les interlignes. Ainsi, pour un 
espacement de lignes particulier il 
suffit de taper en mode immediat : 
LPRINT CHR$(27) "TXX": XX etant 
la valeur choisie. Cette commande 
peut etre introduite dans un pro- 
gramme. 

Pour obtenir 8 lignes par pouce 
tapez simplement : 
LPRINT CHR$(27) "B". 

3- Lorsque vous listez un programme 
Basic, rimprimante regoit des codes 
ASCII. S'ils sont inferieurs a 32 ou 
superieurs a 127. rimprimante ne 
comprend plus ! Deux solutions sont 
alors a envisager : 

— Transferer votre programme dans 
un fichier Mac Write et lister (atten- 
tion vous ne pouvez transferer que 8 
K a la fois). 

— Utiliser le programme ci-dessous; il 
remplace tous les caracteres accen- 
tues par des "(c " et envoie l'equiva- 
lent d'un List. 



10 'Le programme a lister doit 
etre prealablement sauvegarde 
sous la forme d'un fichier 
"texte". 

20 CL5:INPUT "fichier ? ",F$: 

0PENT,1,F$ 
30 WHILE NOT E0F(l) 
40 LINE INPUT* I, L$ 
50 FOR BE- 1 TO LEN(L$) 
60 C$=MID$(L$,B%, 1 ):C%=ASC(C$): 

IF C%<32 OR C%> 1 27 THEN LPRINT 

"@", ELSE LPRINT C$, 



70 NEXT1PRINT 
80 WEND 
90 CLOSE 



4-Nous ne nous sommes pas encore 
penches sur ce probleme. mais tente- 
rons de le faire des que possible. 



J'ai lu dans Pom's 13 la lettre de M. 
Delacourte. selon laquelle PURPLE- 
SOFT ne tolererait pas de ' pro- 
gramme Basic de plus de 2,5 K. Fort 
heureusement, il n'en est rien. II suf- 
fit de charger PURPLESOFT avant le 
programme Basic. Pour eviter une li- 
mitation a 6.5 K il est necessaire de 
charger le programme Basic au- 
dessus de la page graphique 1. 



L 'utilisation sous PURPLESOFT d'un 
programme Basic (12000 octets - 
charge en 16384) exploitant la rou- 
tine PROG48K (publiee dans Pom's 
5), relogee au-dessous de la page 
graphique 1, est possible grace a la 
derivation SYNTAX ERROR decrite 
dans le manuel de la carte Chat 
Mauve, qui permet d'employer 
conjointement les ampersands de 
PROG48K et de PURPLESOFT. 

Monsieur Bodin - La Prunerie - 
24430 Razac 



Le programme TRANS que j'ai de- 
veloppe. ecrit en assembleur Z80. 
permet la communication entre un 
Apple sous CP'M et une autre ma- 
chine sous le meme systeme. L'utili- 
sateur est guide pas a pas. en parti- 
culier pour les operations de 
commutation du modem. 
La transmission binaire. 8 bits avec 
parite, se fait par blocs de 256 octets 
avec polling et cheksum. Tous les fi- 
chiers sont transmissibles en toute se- 
curite. La Vitesse de transmission est 
fixee par defaut a 1200 bauds: il est 
toutefois possible de la modifier (elle 
peut aller jusqu'a 9600 bauds). 

Plusieurs versions de TRANS sont en 
cours de realisation. 
En premiere installation. TRANS est 
livre pour deux sites en relation avec 
une assistance technique au prix de 
4000 F HT; en extension, pour un 
nouveau site relie a un ensemble 
deja equipe. il en coutera 1000 F 
HT. 

Pour plus de renseignements n'hesi- 
tez pas a me contacter. 

Leon Kuntz - 65 rue Nollet - 7501 7 
Paris 
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Pour Apple //c ct //c 

Apple programming for learning 
and teaching de Frederick H. Bell. 
Prentice Hall - 305 pages - $22.05. 

Un cinquantaine de programmes de- 
tailles, et environ 80 petits program- 
mes exemples. pour apprendre a 
programmer. Bien fait et pedagogi- 
que. 

Handbook of Applesoft Basic for 
the Apple II and He de Roy Earl 
Myers et David I. Schneider, Prentice 
Hall - 320 pages - $22.05. 

Consacre une ou plusieurs pages a 
chaque mot reserve du Basic Apple- 
soft. Utilisable aussi par les posses- 
seurs de He. Bien fait, bon ouvrage 
de reference pour les anglophones. 

Voici l'Apple He de D. Goodman. 
Hachette - 165 pages - 95 FF. Tra- 
duit de 1' anglais. 

Voici le premier livre "en francais" 
consacre exclusivement a l'Apple He. 
Cet ouvrage s'adresse aux debutants 
et detaille Tappareil, vu de I'exterieur 
comme de l'interieur. On a droit a 
un chapitre de comparaisons avec 
d'autres materiels : a quoi cela peut-il 
bien servir dans un ouvrage destine 
aux possesseurs du He ? Ensuite, un 
chapitre par application presente les 
possibilites du materiel : traitement 
de texte, calculs. gestion de fichers, 
jeux, ... Clair et propre. mais pas es- 
sentiel. 

La programmation du 6502 de 

A.P. Stephenson. MicroDunod - 184 
pages - 95 FF. Traduit de 1' anglais. 

Bon ouvrage d' initiation au langage 
machine du 6502. 

L'Apple anime 3D de Phil Cohen, 
Eyrolles - 184 pages - 90 FF. Traduit 
de 1' anglais. 

Apprend a programmer le graphique 
et fournit des listings de programmes 
de creation de tables de formes, 
d'edition... II n'y a que des program- 
mes Basic, agrementes d'un texte ex- 
plicatif bien detaille. 

The power of Appleworks de Ro- 
bert E. Williams, Prentice Hall - 230 
pages - $25,95. 

Compilation assez complete, quoi- 
qu'un peu primaire, des potentialites 
du logiciel. Helas. seule une partie 
des possibilites de communication 
entre les trois applications (traitement 
de texte. gestion de fichiers. tableur) 
est expliquee, et ce de facon acces- 
soire. On devrait pouvoir faire mieux 
sur le sujet. mais pour le moment il 
n'y a rien d'autre. 

Pour le Macintosh 

Le guide Marabout du Macintosh 

de Robert Van Loo. Marabout - 200 
pages - 185 FF. 
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Pour les debutants du Macintosh, 
presentation generate du Mac et in- 
troduction a l'utilisation de MacPaint, 
MacWrite et Muitipian (version US). 
Ce livre a ete redige avec le Macin- 
tosh. Ceci dit, travail honnete, mais 
qui apporte peu au-dela des docu- 
mentations originales : il y a deja 
deux ou trois livres de ce genre en 
francais. 

Guide de l'utilisateur Macintosh 

de Joseph Caggiano. Sybex - 180 
pages - 98 FF. Traduction. 

Memes objectifs que I'ouvrage piece- 
dent, mais avec deux fois moins de 
matiere (presentation plus aeree). 

Macintosh le magnifique de Merl 
K. Miller et Mary A. Myers, Editions 
du PSI - 157 pages - 95 FF. Traduit 
de 1' anglais. 

Memes themes que les ouvrages pre- 
cedents, mais il s'agit beaucoup plus 
d une presentation des possibilites 
que de l'apprentissage du Macintosh 
et de ses programmes standards. 

Muitipian pour Macintosh de Ge- 
rard Santraille et Herve Thiriez. Edi- 
tions du PSI. 

Ouvrage complet sur le Muitipian du 
Macintosh, comportant de nombreux 
tableaux prepares relatifs a divers do- 
maines d'application. C'est le pre- 
mier ouvrage ecrit sur le programme 
Muitipian en francais. version 1.02 
(juillet 84). 

Une disquette d'accompagnement fa- 
cultative reprend tous les tableaux de 
I'ouvrage et propose en outre un 
programme ecrit en Basic Microsoft 
pour obtenir la liste detaillee du 
contenu d'un tableau : formules. for- 
mats, noms de zones, decoupages en 
fenetres. ... 

D'interet general 

Guide de 1'Informatique Indivi- 
duelle de H. Varley et I. Graham, 
Hachette - 225 pages - 99 FF. Tra- 
duit de l'anglais. 

Cette encyclopedie couvre, a raison 
d une a deux pages par theme, une 
grande variete de sujets lies de pres 
ou de loin a la micro-informatique. 
Clair et bien presente. Educatif. 

Encyclopedie de la micro-infor- 
matique de Peter Rodwell. Hachette 
- 206 pages - 149 FF. Traduit de 
l'anglais. 

Meme principe que I'ouvrage prece- 
dent, en grand format (21 * 29.7). 
Nombreuses illustrations en couleurs. 
Parfait pour les etudiants. 

dBase II sans embuches de G. 

Grigorieff. Eyrolles - 176 pages - 115 

La pratique de dBase II de Jean- 
Claude Guillemot. Eyrolles - 208 
pages - 140 FF. 



Bibliographie 

Alexandre Duback 



La pratique de dBase II de Carl 
Townsend. Turgeon - Diffusion PSI - 
210 pages - 200 FF. Traduit de l'an- 
glais.. 

Les avis sont partages sur ces trois 
ouvrages qui, en premiere analyse, 
paraissent tous serieux. Le premier a 
l'avantage de s'articuler autour de la 
programmation dune application 
complete (librairie). Le second pos- 
sede un sommaire plus detaille que 
le troisieme. 



Le clavier du He 

Au fil des jours d' utilisation du lie, 
certaines touches necessitent une 
"force de frappe" superieure a la 
normale. Pour y remedier. voici quel- 
ques conseils. 

- Otez tous les cabochons du cla- 
vier. 

- Retirez les deux caches en plasti- 
que (attention l'un d'entre eux est 
colle en quelques points au clavier) 

- Vous decouvrez alors un superbe 
clavier et. a la base de chaque tige 
blanche (support des cabochons). un 
petit ressort. 

La premiere solution consiste a reti- 
rer tous les ressorts. la seconde a .tor- 
dre legerement une des branches de 
chacun d'entre eux en I'eloignant de 
la tige blanche. Remontez le tout et 
votre clavier sera comme neuf ! 

Muitipian et le He 

Si vous utilisez Muitipian en 80 co- 
lonnes sur le c. vous risquez quel- 
ques surprises. En effet. le pro- 
gamme ne reconnaTt plus 
IIMAGEWRITER et votre tableau a 
l'ecran ne sera plus qu'une ligne de 
caracteres "w" sur papier. Pour un 
tableau de 8 colonnes standards (80 
caracteres par ligne) il vous suffit de 
recharger Muitipian. configure en 40 
colonnes. et d'imprimer. En revan- 
che, pour un tableau de 13 colonnes 
(130 caracteres par ligne) il faut utili- 
ser les caracteres ultra comprimes de 
I IMAGEWRITER. Tout est explique 
dans Pom's 9. Cependant, il est ne- 
cessaire d'y apporter une modifica- 
tion. En commande SORTIE, sous- 
commande OPTIONS, il faut rempla- 
cer I'initialisation ~!c par "°c (c etant 
un caractere de controle lie a l'impri- 
mante) car ! n'est autre qu'une 
commande de recalcul manuel du ta- 
bleau en memoire. II ne reste plus 
qu a modifier, dans la commande 
PAGE, le nombre de caracteres par 
ligne en fonction du caractere de 
controle choisi. 
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• 

DISQUETTES (sauf precision, toutes les disquettes fonctionncnt sous DOS 3.3 sur Apple II + . He ou He) 


HAIFA (ri Pom's n" 5^ 


St 


55 00 F 


H-BASIC (cf. Pom's n 8) 


a 


150.00 F 


MUSIC (cf. Pom's n 10) 


a 


80.00 F 






a nn f 


DBSTAG (CP/M) (cf Pom's n 11) 


a 


450 00 F 


JEUX A . (cf. Pom's n 12) 


a 


80.00 F 


JEUX B (cf Pom's n 12) 


a 


80 00 F 


BASICIUM (cf. Pom's n 13) 


a 


150,00 F 


r\CMO r^V CVCTEMF A/11/ lr-l Da^'c i->" 1 1\ 


a 


E.E. nn f 


DEMO JANE 64K (cf. Pom's n 13) 


a 


55.00 F 


CDC iff o ' - _.o -I r- \ 

t.F.t (ct. Pom s n lo ) 




i n,n nn f 


MACINTOSH (cf. Pom's n° 15 ) 


a 


150.00 F 


PASCAL (cf. Pom's n° 15) 


a 


80.00 F 


RECUEILS 






N° 1. recueil des revues 1 a 4 


a 


130.00 F 


Disquettes d'accompagnement des numeros 1 a 4 


a 


150.00 F 


N" 2, recueil des revues 5 a 8 


a 


130,00 F 


Uisquettes d accompagnement des numeros o a o 




i on nn f 


ANCIENS NUMEROS 






REVUES □ 4 □ 7 □ 8 


a 


35.00 F 


rfviifs r~i q r~i in n n 

nLVULO y j 1U J 11 






□ 12 □ 13 □ 14 □ 15 D16 


a 


40.00 F 


DISQUETTES \J U 2 D 3 D ' * D & 






n6n7n8n9nio 






□ 11 □ 12 □ 13 □ 14 □ 15 


a 


55.00 F 


□ 16 






ABONNEMENTS 






POUR 6 NUMEROS a partir du n 






ABONNEMENT SANS DISQUETTES 


a 


200,00 F 


ABONNEMENT AVEC DISQUETTES (Apple II + , He, 


He) a 


480,00 F 




TOTAL TTC 






Supplement expedition 




par avion a 1'etranger 




MONTANT 






DU REGLEMENT 


Ces tarifs comprennent l'envoi postal en France metropolitaine. CEE et Suisse 


Supplement avion hors CEE : 10 F par numero et/ou disquette 




Envoyez ce bon el votre reglement a (Abonnes : n'oubliez pas de Joindre 1'etiquette-adresse). 


Editions MEV - 64-70. rue des Chantiers 


- 78000 VERSAILLES 
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BBC 



40 PROGRAMMES BASIC 



ADAPTABLES SUR TOUS ORDINATEURS. JEUX, UTILITAIRES, 
ENSEIGNEMENT, PLUS LE DICTIONNAIRE DES BASIC. 



SB PRIX: 30 FF - BELGIQUE : 231 FB - CANADA : 3.95 $C - SUISSE : 9,50 FS 




CX MacBase 



PARTENAIRE D'UN NOUVEAU MONDE 



- "Ousuis-je ?~demanda Macintosh. 

- "Dans un nouveau monde" repondit CX Mac- 
Base. "Nos esprits viennent de fusionner. rien ne 
sera plus comme avant". 

Aujourd'hui. la realite depassc la fiction. Cela 
ne pouvait arriver que sur Macintosh avec CX 
MacBase. le logiciel qui stimule, accelere et pro- 
longe la pensee. 

Avec CX MacBase vous saurez tout de suite fi- 
cher, texter, tabler, graphiquer. mixer a volonte. 



Vous avez champ libre : tout apparait sur l ecran 
d'un seul coup de souris "magique". 

Quel que soit votre domaine d'activite. sortez 
du rang ! Vous n'etes plus fait pour marcher au 
pas, en ligne et en colonne forcees. Vovagez libre- 
ment. au gre de votre pensee. de fichier en fi- 
chier, de texte en calcul, de tableau en graphe. 
Vous etonnerez votre entourage par des lettres 
tres personnalisces. des rapports enrichis de ta- 
bleaux, d'images ou de graphiques en trois di- 
mensions... 



CX MacBase, classe, calcule, gere. range, 
imprime. "coupe et colle'un nouveau mondc. 

CX MacBase. c'est presque 
de la sorcellerie ! Pourtant ce 
n'est passorcier !... 



Con f role X 



Les logiciels a tout imaginer 




TOW Mdinr Monlparnassr .75755 Run Ctdex lo.Tflrpliotir : ( 1 1 53*1 9ti.ti7 
Applr Computer Inc csl lr UcaMc if la MarqupMannlnsh. CXHMBnccM unr marque drposre dpronlrolrX 



